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PRODUCT CODE: AC=S327B-MC 

PRODUCT NAME: CZLOPBO LOPSE-F PDP=11 DIAG 
PRODUCT DATE: JANUARY 1981 

MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: GRANT F. SANDY 


THE PF CRNAT I IN THIS DOCUMENT IS SUBJECT TO _ CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A “OMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT C.RPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1980,1981 BY DIGITAL EQUIPMENT CORPORATION 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS DIAGNOSTIC PROGRAM WILL BE USED PRIMARILY BY FIELD 
SERVICE PERSONNEL TO EXERCISE THE LQPSE-F LETTER QUALITY 
PRINTER WITH A SERIAL INTERFACE TO A PDP=11 CPU. 


THIS PROGRAM WILL GENERATE SEVERAL PAGES OF PRINT ON THE 
LOPSE-F PRINTER, LABELLING (WHEN ABLE) EACH TEST PRINT 
PATTERN WITH THE TEST TITLE. THIS WILL AID THE USER IN 
THE DIAGNOSIS OF PRINTER FAILURES. 


THE DIAGNOSTIC PROGRAM WILL HELP IDENTIFY FUNCTIONAL PROBLEMS 
WITH THE PRINTER CONNECTED TO A PDP-11 BY ANY OF FIVE SERIAL 
INTERFACE DEVICES. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 


THE MINIMUM HARDWARE CONFIGURATION FOR RUNNING THIS DIAGNOSTIC IS 
GIVEN HERE: 
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A PDP=11 CPU WITH AT LEAST 16K WORDS OF MEMORY. 


1) 
2) A CONSOLE TERMINAL. 
3) LOPSE=F PRINTER. 
4) GNE OF THE FOLLOWING INTERFACES: 
A) D211, 
B) DL11<-W, 
C) DLV11-J, 
D) DLVII-F, 
E) MXV11. 


1.3 RELATED DOCUMENTS AND STANDARDS 


1) XXDP+ USERS MANUAL = CHQUS. 

2) PPP=11 < IAGNOS "IC SUPERVISOR PROGRAMMERS GUIDE: 
HOW TO WRITE TO THE SUPERVISOR. 

3) DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS, 


PROGRAMMING PRACTICES. 
1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 
THE MINIMUM HARDWARE CONFIGURATION DETAILED IN SECTION 1.2 
WITH THE EXCEPTION OF THE PRINTER IS ASSUMED TO BE FULLY 
OPERATIONAL BEFORE THIS DIAGNOSTIC IS RUN. 


1.5 ASSUMPTIONS 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION CF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONT INUE~- CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 
PROCEED ... CONTINUE FROM AN ERROR HALT 
ExX1T & 7- ~ RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY: ) 
ADD ACTIVATE A UNIT FOR TESTING (AIL UNITS ARE 
*- = CONSIDERED TO BE ACTIVE AT START TIME 
DROP DEACTIVATE A_UNIT 
PRINT , PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
on BY THE DIAGNOSTIC - SECTION 4.0) 
DISPLAY ». TYPE A LIST OF ALL DEVICE INF ORMAT ION. - 
FLAGS ’ TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST - THREE CHARACTERS. SO 
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YOU MAY, FOR EXAMPLE, TYPE ‘'STA'’ INSTEAD OF ‘‘START"’. 
2.2 Sw] PCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"’. 


SWiTCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7-10. e 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 
/PASS : DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3 


/EOP:DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-65) 


EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1-5/PASS : 1000/EOP: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE ''/TES:1-5°' INSTEAD OF ‘'/TESTS:1-5"". 


phe IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


TESTS PASS FLAGS EOP UNITS 


x X 

RESTART X x x x X 
x Xx 
x 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
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CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH, FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 

FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HO HALT ON ERROR = CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR (NOT SUPPORTED IN THIS 
DIAGNOSTIC) 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


1XR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL'* ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 


IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A ‘BELL'' ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS: IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE HW (L) ?°° 
YOU MUST ANSWER ‘'Y’’ AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN ‘PRELOADED’* USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A ‘'Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


Q1: "CHOOSE PAGE WIDTH FOR THE PRINTER 
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SEQ 6 
CHOOSE ONE: 1)80 CHARACTERS PER PRINTER LINE 
2)132 CHARACTERS PER PRINTER LINE 
(1,2) >> 
Q2: "TF ALL DEFAULT VALUES FOR INTERFACE DESIRED,ENTER “Z. 


IF DEFAULT DESIRED FOR A SINGLE INTERFACE CHARACTERISTIC 
DEPRESS <RETURN>. 


“ENTER CONTROL STATUS REGISTER (CSR) ADDRESS.>> 
Q3: ‘PRINTER CONNECTED TO A SINGLE LINE INTERFACE? 


Q3-A: ‘‘ENTER INTERFACE CHANNEL_NUMBER FOR THE PRINTER. 
(ASKED ONLY IF Q3 WAS ANSWERED BY A ‘N’’) 


2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY ‘'CHANGE SW (L) ?°° 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

‘y'" THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


NONE 
2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 

UNIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A FICTIONAL DEVICE, THE XY¥11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
O<CR> 


SUB-DEVICE # (0) ? - 
Q-FACTOR (0) 0 ? 1<CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON=DEFAULT RESPONSE IS GIVEN. 


UNIT 2 
CSR ADDRESS (0) ? 160000<CR> 
SUB=DEVICE # (0) ?_ 1<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0? <CR> 


UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ? 
SUB-DEVICE # (0) ? 
Q-FACTOR (0) 0 ? 


160000<CR> 
6<CR> 
1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 
Q-FACTOR (0) 1? <CR> 


MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. 


NOT VERY EFFICIENT. 
THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIF 


LET'S BUILD THE SAME TABLE USING THE MULTIPLE 


FEATURE. 


# UNITS (D) ? &<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2=5<CR> 


THE PROCEDURE SHOWN 1S 


SPEC 


ICA 
IF] 


BE CAREFUL WHEN SPECIFYING 


TIONS HOWEVER. 


CATION 
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Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
"='* CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 

BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 

THE FOUR ENTRIES ARE ASS'MED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


# UNITS (D) ? &<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 0=7<CR> 
Q-FACTOR (0) 0 ? 0,1,0...,1.1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDF+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE ''R NAME"', WHERE NAME IS THE NAME (iF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE ‘’START** 

5. ANSWER THE "CHANGE Hw'’ QUESTION WITH *'Y"* 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "'CHANGE SW’* QUESTION WITH ‘N’* (NOT ASKED) 
WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
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DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘‘IER’' FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


,WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE Sy FATAL, DEV FATAL, HARD OR SOFT) 


E 
UNIT NUMBER = 0 - N (N_IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE ‘‘IER’’ OR ‘‘IBR'' FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE ‘“‘IER'', ‘‘IBR'' OR ‘‘IXR'' FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 
‘1/0 FAILURE DETECTED AT PRINIER."' 
PROBLEM WITH THE SELF TEST SEQUENCE. CHECK PRINTER ROM. 


“PRINTER BUFFER FULL.’ 
A ‘'CAN'' CHARACTER HAS BEEN RECEIVED, AND THE PRINTER 
HAS DETECTED THAT ITS BUFFER LIMIT HAS BEEN REACHED. 


"PROM/RAM FAILURE DETECTED BY PRINTER."' 
VALID ONLY AFTER THE SELF TEST. CHECK THE PRINTER MEMORY. 


‘PRINTER ERROR: N OUT OF RANGE IN ESCAPE SEQUENCE.’ 
AN UNDEFINED OR OUT OF RANGE ARGUMENT HAS BEEN SENT TO 
THE PRINTER WITHIN AN ESCAPE SEQUENCE. (PRINTER COMMAND) 


‘PAUSE SWITCH PRESSED.** 
THE PRINTER FRONT PANEL PAUSE SWITCH HAS BEEN PRESSED. 


“RIBBON OUT ON PRINTER.*' 
THE PRINTER RIBBON MUST BE IN PLACE. 


“UNDEFINED CHARACTER OR ESCAPE SEQUENCE RECEIVED." 
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AN ILLEGAL SEQUENCE OR CHARACTER HAS BEEN RECEIVED. 
CHECK THE ADDRESS OF THE LAST TRANSMISSION WHICH 
IS GIVEN BY THE DIAGNOSTIC. 


“SHEET "Cra ERROR."* 
THE SHEET FEEDER HAS FAILED TO OPERATE PROPERLY. ms 
ERROR CONDITION MAY BE CLEARED BY SENDING AN ‘ESC 6°° TO 
THE PRINTER. 


"SOFTWARE CRROR** 
THIS MESSAGE SHOULD NOT PRINT UNLESS THE SOFTWARE HAS 
BEEN CORRUPTED. 


"UNEXPECTED Seng RECEIVED FROM PRINTER.*' 
AN XON, XOFF, ANSWER=BACK RESPONSE OR STATUS RESPONSE 
WAS EXPECTED. OR NO TRANSMISSION WAS EXPECTED FROM THE 
PRINTER. SOMETHING WAS NONE THE LESS RECEIVED. 


S tei CHARACTER NOT RECEIVED FROM THE PRINTER."* 
“- =P at CAN, EOT, OR ESC WAS EXPECTED BUT NOT 
C 


Psst CSR ADDRESS GIVEN. TRY AGAIN."' 
THE USER HAS ENTERRED AN INCORRECT CSR ADDRESS OR THE 
DEFAULT ADDRESSES DID NOT WORK WHEN TRYED. THE USER 
MUST NOW EXPLICITLY ENTER THE CORRECT CSR ADDRESS. 


‘INCORRECT CSR ADDRESS OR CHANNEL GIVEN. TRY AGAIN.** 
EITHER THE ADDRESS OR THE CHANNEL IS INCORRECT. 


‘FAILED TO TRANSMIT TO PRINTER."' 
THE TRANSMIT READY CONDITION COULD NOT BE OBTAINED. 
CHECK THAT THE INTERFACE CABLE IS PROPERLY ATTACHED. 


ee, FOR A CHARACTER FROM THE PRINTER.** 
THIS IS NOT AN ERROR MESSAGE. IF THE CHARACTER IS NOT 
RECEIVED EVENTUALLY, AN ERROR WILL OCCUR. THIS IS AN 
INDICATOR TO THE USER. THAT THE PROGRAM IS _IN A WAITING 
STATE AND NOT SIMPLY ‘LOST''. WHEN THIS MESSAGE IS SEEN, 
WAIT FOR NO MORE THAN FIVE MINUTES BEFORE TAKING ACTION. 


‘FAILED TO FIND PRINTER AT DEFAULT ADDRESSES. RESTART PROGRAM."' 
THIS INDICATES THAT THE DEFAULT SEQUENCE WHICH 
THE PROGRAM WAS INSTRUCTED TO EXERCISE FAILED 
TO FIND A PRINTER AT THE ASSUMED DEFAULT 
ADDRESSES. THE USER MUST NOW RESTART THE 
PROGRAM, EXPLICILTY SPECIFYING THE CSR ADDRESS 
AND THE DZ11 CHANNEL (IF APPLICABLE) AND THE 
INTERFACE TYPE. 


4.0 PERFORMANCE AND PROGRESS REPORTS 
AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
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TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE ‘‘EOP"’ SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 


NONE 
5.0 DEVICE INFORMATION TABLES 
P-TABLE ENTRIES: 


CSRADD = CSR ADDRESS. IF FOUND TO BE ZERO, THIS INDICATES 
THAT THE DEFAULT CSR ADDRESSES ARE TO BE TRIED AS 
THE CSR ADDRESS.~ THE CSR ADDRESS IS THE ADDRESS OF 
THE RECEIVER CONTROL STATUS REGISTER IN THE SINGLE 
LINE INTERFACES AND THE RECEIVER AND TRANSMITTER 
CSR FOR THE DZ11 INTERFACE. 


IOOPTN = 1/0 OPTION. A LOGICAL VALUE. © IF EQUAL TO ‘'Y’’ THEN 
A D211 INTERFACE IS ASSUMED. IF EQUAL TO ‘'N’* THEN 
A SINGLE LINE INTERFACE IS ASSUMED. 

PTRCHN - PRINTER CHANNEL. THIS NUMBER (0-7) IS THE CHANNEL 
NUMBER ON A DZ11 INTERFACE WHICH IS CONNECTED TO THE 
PRINTER. 

LINCHS - PRINTER LINE SIZE CHOICE. 
THIS NUMBER (1-2) CORRESPONDS TO 
THE NUMBER OF CHARACTERS PER HORIZONTAL LINE DESIRED 

- ON THE PRINTER. THIS SHOULD BE CHOSEN BY THE USER 

BASED ON_THE WIDTH OF THE FORMS USED ON THE PRINTER. 

6.0 TEST SUMMARIES 5. 


WILL BE DIFFERENT. 


IN ALL TESTS, BEFORE AND AFTER EACH TRANSMISSION TO THE PRINTER, THE 
RECEIVER RUFFER IS CHECKED. IF THE BUFFER CONTAINS A CHARACTER THEN 
THE PROGRAM CHECKS TO SEE IF IT IS AN EOT, OR A CAN CHARACTER, IF THE 
CHARACTER IS ONE OF THESE TWO THEN AN ERROR CONDITION EXISTS AND AN 
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TEST 1 


TEST 2 


TEST 3 


TEST 4 


TEST 5 


TEST 6 


ERROR HANDLING ROUTINE IS CALLED. 


SELF TEST 


A SELF TEST IS INITIATED BY SENDING THE SEQUENCE ‘ESC N C"’ 
TO THE PRINTER. IT IS ASSUMED THAT NO CAN OR EOT SIGNALS 
WILL BE GENERATED IN THE PROCESS. A TIME DELAY WILL BE 
GENERATED TO WAIT FOR THE SELF TEST COMPLETION. THE PRINTER 
STATUS IS THEN EXAMINED. THE ARGUMENT N MAY BE ANY VALUE 
WITH NO EFFECT TO THE TEST. 


SELF TEST COMPLETION WILL BE CONFIRMED BY THE SOFTWARE BY 
THE RECEPTION FROM THE PRINTER OF AN ‘'XON’’ CHARACTER AND AN 
ACCEPTABLE PRINTER STATUS WORD. 


UNDERLINE / NO UNDERLINE MODE TEST 


A LINE OF CHARACTERS WILL BE PRINTED, ALTERNATING UNDERLINED 
AND THEN NON-UNDERLINED CHARACTERS. THE MODE IS GENERATED BY 
THE ‘ESC N G'’ SEQUENCE WHERE N=0 MEANS THAT UNDERLINE IS 
INHIBITTED AND WHERE N=1 MEANS THAT UNDERLINE IS EMPLOYED. 


HAMMER HIT COUNT TEST 


FOUR LINES OF TEXT WILL BE PRINTED, EACH LINE OF TEXT BEING 
PRINTED WI7H A DIFFERENT HIT COUNT. THE RESULTING PRINT 
PATTERN WILL BE FOUR LINES, ONE BLANK LINE (HIT COUNT 0), 

AND THREE LINES OF INCREASING DARKNESS (INCREASING HIT COUNT). 
THE “ESC N D*' SEQUENCE IS USED WITH N EQUAL TO O, 1, 2, AND 
N<O. THE N<O SEQUENCE WILL RESULT IN A HIT COUNT OF ZERO, 
N=0 IS A HIT COUNT OF ONE, N=1 IS A HIT COUNT OF TWO AND N=2 
IS A HIT COUNT OF THREE. 


CARRIAGE POSITIONING TEST 


IN THIS TEST, TWO CHARACTERS ARE PRINTED SEPARATED BY A 
SPACE OF ADJUSTABLE WIDTH. BOTH FORWARD AND REVERSE 
CARRIAGE MOTIONS ARE EXERCISED. THE RANGE OF THE SPACE 
SIZE IS DICTATED BY THE CURRENT PAGE WIDTH. THE SPACE 
SIZE IS ADJUSTED BY SENDING THE “ESC N_ ;** SEQUENCE TO THE 
PRINTER. THE VALUE N IS PROPORTIONAL TO THE SPACE SIZE 
ee ate POSITIVE (RIGHT MOVEMENT) OR NEGATIVE (LEFT 


PAPER POSITIONING TEST (VERTICAL) 


THE VERTICAL SPACING JS ADJUSTED IN THIS TEST BY SENDING 

THE SEQUENCE ‘ESC N 9°° WHERE N IS PROPORTIONAL TO THE VERTICAL 
SPACE SIZE. IN THIS TEST A LINE OF CHARACTERS WILL BE PRINTED 
AND A CARRIAGE RETURN = LINE FEED TRANSMITTED. THE VERTICAL 
SPACE SIZE WILL THEN BE ADJUSTED AND THE SEQUENCE WILL BE 
REPEATED. THIS SEQUENCE WILL BE PERFORMED OVER A REASONABLE 
RANGE OF VERTICAL SPACE SIZES. 


PRINT ONE LINE OF EACH CHARACTER 


SEQ 12 


YIIIAASS 
WNOUSWN--O 


NN 
—— 


719 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


9 - 


ONE LINE OF EACH PRINTABLE CHARACTER WILL BE PRINTED TO 
Sh at THAT ALL POSITIONS ON THE PRINT WHEEL WILL ACTUALLY 


PRINT A SWIRL PATTERN 


THE COMPLETE CHARACTER SET IS PRINTED ONE LINE AT A TIME 
IN A “’SWIRL PATTERN’’. 


WORST CASE RAPID MOTION TEST 


THIS TEST WILL PUT THE PRINT WHEEL THROUGH A MECHANICALLY STRESSFUL 
SITUATION BY REPEATEDLY PRINTING THE SEQUENCE ‘‘ACA:ACA:AC.."° 


PRINT RANDOM CHARACTERS 


THIS TEST WILL PRINT A RANDOM SEQUENCE OF CHARACTERS ON THE 
PRINTER, 


PRINT OPERATOR SELECTED CHARACTERS 


THIS TEST WILL PRINT CHARACTER SEQUENCES MFFINED BY THE 
USER. THE TEST IS ENDED BY ENTERRING ©.RETURN>. 


LIFT / DROP RIBBON BY OPERATOR CONTROL 
(OPTIONAL = SPECIAL TEST) 


THIS TEST WILL HAVE TWO MODES SELECTABLE ON THE TEST MENU: 
AUTOMATIC MODE AND MANUAL MODE. IN THE AUTOMATIC MODE THE 
RIBBON WILL RAISE AND DROP AT A RATE OF ABOUT ONCE PER SECOND. 
THIS SEQUENCE WILL CONTINUE UNTIL THE OPERATOR STOPS IT BY 
ACTION TAKEN AT THE OPERATORS CONSOLE. IN MANUAL MODE THE 
OPERATOR WILL RAISE AND DROP THE RIBBON AT WILL BY PRESSING 
CONSOLE KEYS AS SPECIFIED ON THE CONSOLE SCREEN. 


BIDIRECTIONAL FORMS TRACTOR (OPTIONAL = SPECIAL TEST) 


A VARIABLE SIZE MATRIX OF CHARACTERS WILL BE PRINTED IN A 
RANDOM ORDER, FORCING RANDOM MOVEMENT OF THE CARRIAGE IN ALL 
FOUR DIRECTIONS. 


CUT SHEET FEEDER EXERCISER (OPTIONAL ~ SPECIAL TEST) 


IN THIS TEST THE PAGE SIZE IS SET TO ELEVEN INCHES, A SHEET 

1S FED FROM THE FRONT TRAY, A LINE IS PRINTED AT THE TOP OF 

THE PAGE AND A LINE IS PRINTED AT THE BOTTOM OF THE PAGE. 

THE PROCESS IS THEN REPEATED WITH THE REAR TRAY FEEDING WHICH 

oa Seems EJECT THE PAGE IN THE PRINTER FROM THE 
v6 


SEQ 13 


Peet 
4 





SEQ 15 
PROGRAM HEADER 

1 

2 000000 ~ENABL ABS 

? .ENABL AMA 

5 002000 .=2000 

6 -MCALL SVC 

7 002000 SVC : INITIALIZE SUPERVISOR MACROS 
: 002000 BGNI40D 

10 000001 SVCINS= 1 : LIST INSTRUCTIONS, SHIFTED RIGHT 

11 000001 SVCTST= 1 : LIST TEST TAGS, SHIFTED RIGHT 

12 000001 SVCSUB= 1 : LIST SUBTEST TAGS, SHIFTED RIGHT 

13 000001 SVCGBL= 1 : LIST GLOBAL TAGS, SHIFTED RIGHT 

be 000001 SVCTAG= 1 : LIST OTHER TAGS, SHIFTED RIGHT 

16 

17 

18 

19 
20 
al 002000 POINTER ERRTBL 
23 
24 002000 HEADER CZLOP,B.0,240.,0,PRI07 

002000 LENAME : : 

2 103 ASCII /C/ 
002001 132 ASCII /2/ 
002002 114 -ASCII /L/ 
002003 121 -ASCII /Q/ 
002 120 «ASCII /P/ 
002005 000 -BYTE O 

2 000 -BYTE O 
002007 000 -—BYTE O 
002010 LSREV:: 

002010 102 -ASCI] /B/ 
002011 LSDEPO:: 

002011 060 eASCII /0/ 
002012 LSUNIT:: 

002012 000000 «WORD 0 
002014 LSTIML:: 

002014 000360 -WORD 240. 
C02016 LSHPCP: : 

002016 025024 .WORD LSHARD 
002020 LSSPCP:: 

002020 000000 -WORD 0 
002022 LSHPTP:: 

002022 002160 -WORD L$HW 
002024 LSSPTP:: 

002024 000000 -WORD OQ 
002026 LSLADP:: 

002026 026042 .WORD LS$LAST 
0062030 LSSTA:: 

002030 000000 -WORD 0 
002032 L$CO:: 

002032 000000 «WORD 0 
002034 LODTYP:: 

002034 000000 .WORD 0 


PROGRAM 


HEADER 


000000 
002124 
000340 
000000 
000000 


003 
003 


000000 
000000 
000000 
010102 
000000 
000000 
000000 
000000 
000000 
000000 
010150 
104035 
010072 
915634 
017570 
017566 
015626 
000000 
000000 
000000 


- SBITL 


DISPATCH TABLE 


LSAPT:: 


LSDTP:: — 
L$PRIO:: 
LSENVI:: 
LSEXP1:: 
LSMREV: : 


LSEF:: 


L$SPC:: 
LSDEVP:: 
LSREPP: : 
LSEXPS:: 
LSEXPS:: 
LSAUT:: 
LS$DUT:: 
LSLUN:: 
LSDESP: : 
LSLOAD: : 


LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 


LSTEST:: 


LSOLY:: 


LSHIME:: 


0 
L$DISPATCH 
PRiO7 

0 

0 


CS$REVISION 
C$EDIT 


0 
0 


0 
LSDVTYP 


o 6° 6&6 8 seco 


L$DESC 
E$LOAD 
LSERRTBL 
LSINIT 
LSCLEAN 
LSAL'TO 
LSPROT 

0 

0 

0 


SEQ 16 


DISPATCH TABLE 


1 
2 
3 
4 
5 


902122 


602154 


000015 
017632 


023766 


DISPATCH 13 


.SBTTL DEFAULT HARDWARE P=-TABLE 


. WORD 
L$DISPATCH:: 
4 D 


SEQ 17 





DEFAULT HARDWARE P=TABLE 


ODONAUEWN 


002156 000004 


— td nd os at 4 es 


C021 70 
002170 


woe 
OOM NOWSwWN-O 


++ 


BGNHW DFPTBL 


-WORD 0 

.~ WORD 1 

.~ WORD 0 

.WORD 1 

ENDHW 
TITLE GLOBAL AREAS 
.SBITL 


: THE DEFAULT HARDWARE P=TABLE CONTAINS DEFAULT VALUES OF 
: THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
- IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
: AND IS USED AS A ‘‘TEMPLATE'' FOR BUILDING THE P=TABLES. 


WORD L10000=L $HwW/ 2 
LSHW:: 
DFPTBL:: 


:CSR ADDRESS. IF = 0 THEN AUTO=SETUP MODE IS ASSUMED. 
:1="'Y'", 1/0 OPTION IS SINGLE LINE (NON-DZ11) INTERFACE 
PRINTER CHANNEL DEFAULT IS CHANNEL 0. 

LINE SIZE CHOICE. 1=80 CHARACTERS/LINE 


£10000: 


GLOBAL EQUATES SECTION 


rm 


| 6 2 
| GLOBAL EQUATES SECTION 
1 
2 002170 EQUALS 
| : BIT DIFINITIONS 
| 100000 81115== 100000 
040000 BIT14== 40000 
020000 BITI3== 20000 
010000 BIT12== 10000 
| 004000 BITI1== 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
| 000400 BITOB== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BITO== 20 
900010 BITO3== 10 
600004 BITO2== 4 
000002 BITOl== 2 
900001 BITOO== 1 
001000 BIT9== BITO9 
000400 BIT8== BITO8 
000200 B]T7== BITO7 
000100 BIT6é== BIT06 
000040 BIT5== BIT05 
000020 BIT¢== BIT04 
000010 BIT3== BIT03 
000004 BIT2== BITO2 
900002 BITi== BITO! 
000001 BITO== BITOO 
: EVENT FLAG DEFINITIONS 
; EF 32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
| 00004 EF. START== 32. : START COMMAND WAS ISSUED 
00003 EF .RESTART== 31. ; RESTART COMMAND WAS ISSUED 
000036 EF CONTINUE== 30. : CONTINUE COMMAND WAS ISSUED 
000035 EF .NEW== 29 : A NEW PASS HAS BEEN STARTED 
000034 EF .PWR== 28 : A POWER-F AIL /POWER-UP OC CURRED 
: PRIORITY LEVEL DEFINITIONS 
000340 beyo7== 340 
000300 PRIQ6== 300 
000240 PRIOS== 240 
000200 PRI04== 200 
000140 PRIO03== 140 
0001 PRIO2== 100 
PRJO1== 40 
PRIOO== 0 


S OPERATOR FLAG BITS 
000004 Fitz 4 


SEQ 19 


GLOBAL EQUATES SECTION 


900010 LOT== 10 
600020 ADR== 20 
900060 1DU== 40 
: 000100 1SR== 100 
900200 UAM== 200 
00 BOE == 400 
001000 PNT== 1000 
| 002000 PRI== 2000 
| 004000 IXE== 4000 
| 010000 IBE== 10000 
| 620000 IER== 20000 
0000 LOE== 40000 
| 100000 HOE== 100000 
| i 
3 DECIMAL VALUES 
7 000040 ZERO =35? 
@ 00004 1 ONE 233. 
9 000042 TWO aSé, 
10 00004 3 THREE =35. 
17 000044 FOUR = 36. 
12 000045 FIVE  =37. 
13 000046 SIX =38. 
14 000047 SEVEN =39. 
15 000050 EIGHT  =40. 
10 000051 NINE =41, 
17 000052 HEXA  -=42.. 
18 000053 HEXB = 43 
i9 000054 HEXC -=6eb. 
20 000055 HEXD  =45. 
21 000056 HEXE =46. 
22 000057 HEXF  -=47.. 
24 000001 NUMI=1 
25 000002 NUM2 -=2 
26 0 NUM3 =3 
27 NUMZ  -=4 
28 000005 NUMS = 5 
29 NUM6 —-=6 
30 0007 NUM? =? 
31 000010 NUMB = 8 
32 000011 NUM9 —s-=9. 
33 000012 NUMIO. -=10. 
34 13 NUM11 =11, 
35 000014 NUM12_=12. 
36 000015 NUMI13=13. 
37 000016 NUM14  =14. 
38 000017 NUMI5 =15. 
40 
41 
42 020000 ECNRB =BIT13 
| 43 010000 UCRB) -=BIT12 
45 


;MNEMONICS FOR ESCAPE SEQUENCE ARGUMENTS. 


SEQ 20 


062000 





MXi F =2000 ;MAXIMUM LINEFEED SIZE. 


GLOBAL DATA SECTION 


DECIMAL 2048x1/48 INCHES 


SEQ 21 


-_———_———— —- — , 


002170 


002202 
002204 


C02206 


=O ODNAWN EWN $0 OONOAUEWN = 


Nong -3 2 4 SS 9 SH Se 


42 002210 
oF 002212 


45 002214 


50 002226 
51 002233 
52 002240 


GLOBAL DATA SECTION 


000000 


} 

| 

| 

“9 
002231 04 
002236 040 
002243 


076 
040 


040 
040 
075 


ee 


+ THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 


; IN MORE THAN ONE TEST. 

SKP14: .WORD 640. SKIP 14 INCHES MINUS 3_LINES ARGUMENT. 

SKPA4: .WORD 537. SKIP A4 SPACING MINUS _3 LINES ae Ao 

SKP11: .WORD 496. SKIP 11 INCHES MINUS 3 LINES ARGUMEN 

CRNTSK: .WORD ; TEMPORARY SAFE LOCATION FOR CURRENT SKIP SIZE. 
CSRADD: . WORD ADDRESS OF CSR REGISTER 

LOGUNIT: . WORD ;LOGICAL UNIT NUMBER 

PLOC: . WORD SADDRESS OF HARDWARE P=TABLE 

GREASE: .WORD 0 ;WHEN = -1, A GREASED EXIT IS PROVIDED FROM THE 


Be Be Be Be Be Be Be Be Be Be Fe Be Be Be Be 


STSRES: 
HZTLSP: 


DUMMYS: 


RESET: 


VRTCLS: 
HRZTLS: 
RIBPCS: 


;CURRENT ROUTINE. 


ESCAPE SEQUENCE TRANSMISSION TABLE 


THE FOLLOWING ASSIGNMENTS MAKE UP A TABLE IN THE FOLLOWING FORMAT: 
THE LABEL IS USED TO REFERENCE THE DESIRED TABLE ENTRY. THE FIRST 
BYTE IN EACH TABLE ENTRY IS AN ESCAPE CHARACTER. SOME OF THE TABLE 
ENTRIES HAVE ONLY ONE ADDITIONAL BYTE. THESE ENTRIES CORRESPOND TO 
PRINTER TASKS WHICH REQUIRE NO VARIABLE PARAMETERS. THOSE TABLE 
ENTRIES WITH MORE THAN TWO BYTES CORRESPOND TO PRINTER TASKS WHICH 
REQUIRE SOME PARAMETER. THE PARAMETERS IN EACH ENTRY MAY BE FROM 
ONE TO THREE BYTES AND MUST BE MNEMONIC VALUES (SUCH AS THOSE ASSIGNED 
BY THE CONVRT ROUTINE). TO USE A TABLE ENTRY IN CONJUNCTION WITH THE 
XMIT ROUTINE, THE TABLE ENTRY LABEL IS PLACED IN R1 AND THE NUMBER OF 
BYTES TO BE TRANSMITTED IS PLACED IN Re. 


ASCII = <033>/0/ 32 BYTES. EVOKE STATUS RESPONSE. 
ASCII = <033>/5/ 32 BYTES. PERFORM HORIZONTAL SPACING 


ASCII = <012><033>/>/<033>/( 9/ ;DUMMY SEQUENCE FOR PRINTER INTERFACE 

sRESET SEWJENCE 

re BYTES. aioe INTERFACE, a FEEDER 

: PRINTER. RECEIVE STATUS 
RESPONSE AND *‘XON'’ CHARACTER. 

5 BYTES. ACCUMULATE VERTICAL SPACES. 

75 BYTES. ACCUMULATE HORIZONTAL SPACES. 


33 BYTES. SET RIBBON POSITON= DOWN. 


eASCII <0335>/6/ 


ASCII <033>/ 9 
eASCII <033>/ 5 / 
ASCII = <033>/!=./ 


SEQ 22 


SEQ 23 


& ONE EXTRA CHARACTER FOR TEST 11. 


002264 083 049 040 STCHSZ: .ASCII <033>/  'A/ °5 BYTES. SET CHARACTER SIZE. 10 CHR/IN 
002251 033 040 050 STLNSZ: .ASCII <033>/ (B/ :4 BYTES. SET LINE SIZE. 6 LINES/INCH 
002255 033 103 SLFTST: .ASCII <033>/C/ :2 BYTES. DOA SELF TEST. SEND STATUS 
002257 033 040 106 STHTCT: .ASCII <033>/ D/ :3 BYTES. SET HIT COUNT TO 1 HIT/CHAR. 
002262 035 040 047 STSPSZ: .ASCII <033>/ "F/ °4 BYTES. SET SPACE SIZE. 10 SPACES/IN 
2 266 033 940 107 STULMD: .ASCII <033>/ G/ :3 BYTES. SET UNDERLINE MODE TO NO-UND. 
002271 033 040 040 STFGSZ: .ASCII <033>/— H/ :5 BYTES. SET PAGE SIZE. 
002274 040 110 
002276 033 040 040 SLIPFF: ASCII <O033>/  !u/ :5 BYTES. SELECT TRAY AND PERFORM FF. 
002301 041 112 
65 ; SELECT FRONT TRAY AND EJECT. 
002303 033 056 056 SETHTO: .ASCII <033>/...D/ :SET HIT COUNT TO 0 HITS. 5 BYTES. 
002306 056 104 
3 602310 033 040 101 SETCHO: .ASCII <033>/ A/ :SET SPACE SIZE TO ZERO. 
002313 015 CR: LASCII <015> :1 BYTE FOR RETURN ONLY. 2 FOR <CRLF>. 
° 002314 012 LF: "ASCII. <012> ‘1 BYTE FOR LINEFEED ONLY. 
002315 033 040 040 STATUS: .ASCII <033>/ 0/ :STAUS SEQUENCE TEMPLATE. 
‘ 002320 040 060 
002322 042 043 041 PSZA6: ASCII /*#!/ :PATTERN: TwO THREE ONE IN HEX 
: 002325 042 041 040 PS211: .ASCI] /*! / “PATTERN: 11 INCHES PAGE SIZE TWO, ONE 
é O IN HEX 
78 002330 042 052 040 PSZ714: ASCII] /** / “PATTERN: 14 INCHES PAGE SIZE 


ASCII STRING MESSAGES, TEST TITLES 


002333 045 116 045 TITLE1: .ASCIZ /%N%NZATEST 1 = SELF TEST/<015><012> sTITLE FOR TEST 1. 
002336 116 045 101 
002341 124 105 123 
002344 124 040 061 
002347 040 055 040 
002352 123 105 114 
002355 106 040 124 
2 105 123 124 
002363 015 O12 000 
002 045 116 045 TITLE2: .ASCIZ /%N%ATEST 2 = UNDERLINE/<057>/NO-UNDERLINE MODE TEST/<015><012> 
002371 101 124 105 
002374 123 124 040 
377 062 040 055 
002402 040 125 116 
002405 104 105 122 
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SEQ 24 


TITLE FOR TEST 2. 
TITLE3: .ASCIZ /%NZATEST 3 = HAMMER HIT COUNT TEST/<015><012> 


TITLE FOR TEST 3. 
TITLES: .ASCIZ /%N%ATEST 4 - CARRIAGE POSITIONING TEST/<015><012> 


< 


TITLE FOR TEST 4. 
TITLES: .ASCIZ /%NZATEST 5 = PAPER POSITIONING (VERTICAL) TEST/<015><012> 


Ces 


SEQ 25 


zTITLE FOR TEST 5. 


| 
| 97 002645 045 116 045 TITLE6: .ASCIZ /%N%ATEST 6 = PRINT ONE LINE OF EACH CHARACTER/<015><012> 
00265 101 124 105 
002653 123 124 040 
002656 066 040 055 
002661 040 120 122 
2664 111 116 124 
002667 040 117 116 
002672 105 040 114 
. 002675 111 116 105 
* 002700 040 117 106 
002703 040 105 101 
2706 103 110 040 
002711 103 110 101 
002714 122 101 103 
002717 124 105 122 
002722 015 012 000 
98 ; TITLE FOR TEST 6. 
002725 045 116 045 TITLE7: .ASCIZ /%N%ZATEST 7 - PRINT A SWIRL PATTERN/<015><012> 
602730 101 124 105 
002733 123 124 040 
002736 067 040 055 
002741 040 120 122 
002744 111 116 124 
002747 040 101 040 
00275 123 127 111 
002755 122 114 040 
002760 120 101 124 
002763 124 105 122 
002766 116 015 O12 
002771 000 
100 TITLE FOR TEST 7. 
101 002772 045 116 045 TITLES: .ASCIZ /%N%ATEST 8 - WORST CASE RAPID MOTION TEST/<015><012> 
002775 101 124 105 
003000 123 124 040 
003003 070 040 055 
003006 040 127 117 
003011 122 123 124 
003014 040 103 101 
003017 23 105 040 
003022 122 101 120 
003025 111 104 040 
003030 115 117 124 
003033 111 117 116 
003036 040 124 105 
003041 123 124 015 
003044 012 000 
102 TITLE FOR TEST 8. 
103 003046 045 116 045 TITLE9: .ASCIZ /%N%ATEST 9 - PRINT RANDOM CHARACTERS/<015><012> 
003051 101 124 105 
003054 123 124 040 
003057 071 040 055 
003062 040 120 122 
003065 111 116 124 
003070 040 122 101 
003073 116 104 117 
| 003076 115 040 103 


N 2 
| SEQ 26 
| GLOBAL DATA SECTION 
| 003101 110 101 122 
003104 101 103 124 
003107 105 122 123 
003112 015 012 000 
104 TITLE FOR TEST 9. 
105 003115 045 116 045 TITLEA: .ASCIZ /%N%ZATEST 11 = PRINT OPERATOR SELECTED CHARACTERS/<015><012> 
003120 101 124 105 
003123 123 124 040 
003126 061 061 040 
003131 055 040 120 
31 122 111 116 
003137 124 040 117 
003142 120 105 122 
003145 101 124 117 
003150 122 040 123 
003153 105 114 105 
003156 103 124 105 
003161 104 040 103 
003164 110 101 122 
C03167 101 103 124 
003172 105 122 123 
003175 015 012 000 
106 TITLE FOR TEST 11. 
107 003200 105 116 124 PRMPTA: .ASCIZ /ENTER STRING. Q TO EXIT TEST. END WITH <RETURN>./<015><012> 
003203 105 122 040 ‘ “wi 
3206 123 124 122 We PLE ira 
003211 111 116 107 
603214 056 040 121 
003217 040 124 117 
003222 040 105 130 


003225 111 124 040 


003261 104 0 127 
003244 2111 124 110 
003247 040s«0 7H 22 
003252 ««105-ts«*d2‘G 125 
003255 122 11 6 
3260 056 015 N2 
003263 
108 : PROMPT FOR TEST 11. 
109 003264 045 116 —s045—sSTITLEB: .ASCIZ /%NZATEST 10 - LIFT/<57>/DROP RIBBON BY OPERATOR CONTROL /<015><012> 
003267 ~—Ss«‘101 124 105 
003272 -123—i‘éd2KHsi(ité‘«é 
003275 ~—s«6 060 040 
3 055 040 114 
003303113 106-126 
3 057 106 122 
003311 117, 120-040 
003314 39122.‘ 102 
003317, 102—'i“‘zT C18 
003322 040102131 
003325 = 040s 120 
33 105 ©122~—S—(«101 
003333 126117128 
00333% «= 060—sss108tsd 
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SEQ 27 


TITLE FOR TEST 10. 
«ASCII /CHOOSE ONE: A OR B/<015><012> 


5 
~ 
2 
> 


.ASCII /A = AUTOMATIC MODE/<015><012> 


-ASCI] /B - MANUAL MODE/<015><012> 


,ASCIZ /END WITH <RETURN>/<012><015> 


PRMPTC: .ASCII /MANUAL MODE: EACH TIME THE <RETURN> KEY IS HIT, THE RIBBON/ 


eASCI] = <012><015> 
ASCII] /WILL RAISE FOR A MOMENT. TO EXIT TEST, ENTER / 


—_—_— - ——- 


f-7-- —Soe 


SEQ 28 


003601 101 040 115 
003604 117 115 105 
003607 116 124 056 
003612 040 124 117 
003615 040 105 130 
003620 111 124 040 
903623 124 105 123 
093626 124 054 040 
003631 105 116 124 
003634 105 122 040 
118 003637 012 015 ASCII. <012><015> 
| 119 003641 101 040 042 “ASCII /A ‘'Q'' FOLLOWED BY PRESSING THE <RETURN> KEY./<012><015> 
003644 121 042 040 
003647 106 117 114 
003652 114 1? 427 
003655 105 104 040 
003660 102 131 040 
00 120 122 105 
00 123 123 111 
603671 116 107 040 
003674 124 110 105 
003677 040 074 122 
003702 105 124 125 
003705 122 116 076 
003710 040 113 105 
003713 131 056 012 
003716 015 
120 :PROMPTS FOR TEST 11 
121 003717 045 116 045 TITLEC: .ASCIZ /%N%ATEST 12 = BIDIRECTIONAL FORMS TRACTOR/<012><015> 
003722 101 124 105 
003725 123 124 040 
003730 061 062 040 
003733 055 040 102 
003736 111 104 111 
003741 122 105 103 
003744 124 111 117 
003747 116 101 114 
003752 040 106 117 
003755 122 115 123 
003760 040 124 122 
003763 101 103 124 
003766 117 122 012 
003771 015 000 
122 sTITLE FOR TEST 12. 
123 003773 045 116 045 TITLED: .ASCIZ /%N%ATEST 13 = CUT SHEET FEEDER EXERCISOR/<012><015> 
003776 101 124 105 
004001 123 124 040 
004004 061 063 040 
004007 055 040 103 
004012 125 124 040 
004015 123 110 105 
004020 105 124 040 
004023 106 105 105 
004026 104 105 122 
004031 040 105 130 
004034 105 122 103 
004037 111 123 117 


| SEQ 29 
| GLOBAL DATA SECTION 
004042 -122,—'s«C2—t—i«éiTS 
004045 000 
124 ;TITLE FOR TEST 13. 
125 004066 123 120 105 PRMPTD: .ASCII /SPECIAL TEST: CUT PAGE SHEET FEEDER MUST BE INSTALLED./<12><15> 
| 00405 103 = 111s‘ 
| 004054 114 040 124 
| 004057 105 s«*123—Ctts«éd 
| 004062 072 040 103 
| 00406 125 124040 
004070 120 101 107 
004073 = 105 040s«i128 
| 004076 110 105 105 
004101 1246 040 106 
0041 105 = 105104 
004107 105 122 049 
004112 9115 = 125123 
004115 124 040 102 
004120 105 040 111 
004123 116 = 123124 
604106 = 101.1141 
004131 105 104 056 
004134 O12 015 
126 004136 = 012-— si “ASCII <12><15> 
127 004140 , Ver 110 101 eASCI] /WHAT IS THE PAGE LENGTH? ENTER A, B, OR C./<012><015> 
004143 9124 040s 
004146 123 040 124 
00415 110 = 105-040 
004154 120 101 107 
004157 105. 040s«d194 
004162 105 116 107 
004165 12 110 077 
00417 040 040 105 
004173 116124105 
004176 122 4 101 
004201 054 0460 102 
004206 054 040 117 
904207 122 040 103 
004212 056i is«T?—ts«éS 
128 006215 = 1104S: 105-s«*106 ASCII] /DEFAULT SIZE IS 11 INCHES./<012><015> 
004220 101 125 114 
004223 124 040s‘ 
004226 111 132 105 
004231 9040 ss111.— ss‘ 
004234 040 061 061 
004237 040isd1z11.'—i‘“‘«tsé«C22SC 
004242 103 110 105 
004245 123 056 O12 
00425 015 
129 004251 012,—s15 ASCII <012><015> 
130 004253 = 101. Ss (040040 TASCIT /A #11 INCHES/<012><015> 
004256 055 061 061 
004261 040 111 116 
2 103 110-105 
004267 «123—Ciis«?—s«éS 7 
131 004272 = 102, 04040 ASCII] /B =14 INCHES/<012><015> 
004275 = (055 0618S 
004300 040 2«=«111—Ss«*W26 





z SEQ 30 
GLOBAL DATA SECTION 
004303 103 110 105 
004306 123 O12 015 
132 004311 103 040 040 wASCIZ /C AG (EUROPEAN STANDARD) /<012><015> 
004314 055 101 064 
004317 040 050 105 
004322 125 122 117 
004325 120 105 101 
004330 116 040 123 
004333 124 101 116 
004336 104 101 122 
004341 104 051 012 
004344 015 000 
133 004346 123 120 105 T11PMT: .ASCII /SPECIAL TEST:/<12><15> 
004351 103 111 101 
004354 114 040 124 
004357 105 123 124 
004362 072 O12 015 
134 004365 124 110 111 -ASCII /THIS TEST IS FOR PRINTERS WITH THE BIDIRECTICNAL FORMS / 
004370 123 040 124 
004375 105 123 124 
004376 040 111 123 
004401 040 106 117 
004404 122 040 120 
004407 122 111 116 
004412 124 105 i22 
004415 123 040 127 
004420 111 124 110 
004423 040 124 110 
004426 105 040 102 
004431 111 104 111 
004434 122 105 103 
004437 124 111 117 
442 116 101 114 
004445 040 106 117 
004450 122 115 123 
004453 040 
135 004454 124 122 101 eASCII /TRACTOR ONLY./<12><15> 
004457 103 124 117 
004462 122 040 117 
465 116 114 131 
004470 056 O12 015 
136 004473 105 116 124 eASCIZ = /ENTER <RETURN> TO CONTINUE.../ 
004476 105 122 040 
004501 074 122 105 
504 124 125 122 
004507 116 076 040 
004512 124 117 040 
004515 103 117 116 
004520 124 111 116 
004525 125 105 056 
004526 056 056 000 
137 004531 105 116 124 NPRMPT: .ASCII /ENTER ‘*<RETURN>'’ TO LIFT THE RIBBON FOR A MOMENT ./<12><15> 
004534 105 122 040 
004537 042 074 122 
004542 105 124 125 
004545 122 116 C76 
004550 042 040 124 


——— 


C04644 124 


| SEQ 31 
GLOBAL DATA SECTION 
004553 117 040 114 
556 111 106 124 
004561 040 124 110 
04564 105 040 122 
904567 111 102 102 
004572 117 040 
004575 106 122 
| 004600 040 040 
004603 115 115 
0046 105 124 
| 004611 056 015 
138 004614 105 124 ASCIZ /ENTER "‘Q<RETURN>'' TO EXIT TEST./ 

| 004617 105 040 
004622 042 074 
004625 122 124 
004630 125 116 
004633 076 040 
004636 124 040 
105 11 
124 
124 


Nm 


116 
117 
101 
117 
116 
O12 
116 
| 122 
121 
105 
122 
042 
117 
130 
040 
tt 
139 004654 124 110 111 FTYTPM: .ASCII /THIS SHOULD BE PRINTED AT THE TOP OF THE PAGE./<12><15> 
004657 123 040 123 
004662 110 117 125 
004665 114 104 040 
004670 102 105 040 
004673 120 122 111 
004676 116 124 105 
004701 104 040 101 
004704 124 040 124 
004707 110 105 040 
004712 124 117 120 
004715 040 117 106 
004720 040 124 110 
004723 105 040 120 
004726 101 107 105 
004731 056 012 015 
140 004734 124 110 105 -ASCI] /THE PAGE SHOULD HAVE COME FROM THE FRONT TRAY./<12><15> 
004737 040 120 101 
004742 107 105 040 
004745 123 110 117 
004750 125 114 104 
004753 110 101 
004756 126 105 040 
004761 103 117 115 
004764 105 040 106 
004767 122 117 115 
004772 040 124 110 
004775 105 040 106 
5000 122 117 116 
005003 124 040 124 
5006 122 101 131 
005011 056 O12 015 
141 005014 124 110 111 RTYTPM: .ASCII] /THIS SHOULD BE PRINTED AT THE TOP OF THE PAGE./<12><15> 
005017 123 040 123 
005022 110 117 125 


SEQ 32 
GLOBAL DATA SECTION 
005025 114 104 040 
005030 102 105 040 
005033 120 122 111 
5036 116 124 105 
905041 104 040 101 
005044 124 040 124 
005047 110 105 06 
005052 124 117 120 
005055 040 117 106 
005060 040 124 110 
005063 105 040 120 
066 101 107 105 
005071 056 012 015 
142 005074 124 110 105 ASCII /THE PAGE SHOULD HAVE COME FROM THE REAR TRAY. /<12><15> 
005077 040 120 101 
005102 107 105 040 
005105 123 110 117 
005110 125 114 104 
005113 040. 110 101 
605116 126 105 040 
005121 103 117 115 
005124 105 040 106 
005127 122 117 115 
005132 040 124 110 
005135 105 040 122 
005140 105 101 122 
005143 040 124 122 
005146 101 131 056 
005151 040 012 015 
143 005154 045 116 045 wWISTPM: .ASCIZ /%N%AWAITING TO SEND DATA TO PRINTER. PRINTER NOT READY./ 
005157 101 127 101 
005162 111 124 111 
005165 116 107 040 
005170 124 117 040 
005173 123 105 116 
005176 104 040 104 
905201 101 124 101 
005204 040 124 117 
005207 040 120 122 
005212 111 116 124 
005215 105 122 056 
005220 040 120 122 
005223 111 116 124 
005226 105 122 040 
005231 116 11? 124 
5234 040 122 105 
005237 101 104 131 
005242 056 000 
144 
145 
146 EVEN 
4 
148 005244 000000 MSGADD: .WORD :HOLDS ADDRESS OF A MESSAGE 
149 005246 000000 TRXADD: .WORD 
150 005250 000000 BAUDRT: : WORD 
151 005252 176500 SI DFLT: .WORD 176500 :DEFAULT CSR ADDRESS = SINGLE LINE 
152 005254 176010 DZDFLT: .WORD 176010 “DEFAULT CSR ADDRESS = MULTILINE. 


H 3 
SEQ 33 
GLOBAL DATA SECTION 

153 005256 000000 DFAIL: .WORD 0 
154 005260 000000 FLAGS: .WORD :START TIME SUPERVISOR FLAGS 
155 005262 000000 000000 000101 BASET: .WORD 0,0,101 STABLE ENTRY - 3 WORDS, INCLUDES THE 
156 005270 000000 000036 000102 "ORD 0,30.,102 :ROW #, THE COLUMN #, THE ASCII 
157 005276 000000 000674 000103 “WORD 0.60.,103 “VALUE AND THE ACCESS INDICATOR. 
158 005304 000000 000132 000104 "WORD 0,90..104 “THE ROW NUMBER AND THE COLUMN NUMBER 
159 005312 000000 000170 000105 “WORD 0,120.,105 ‘ARE WORDS AND THE ASCII VALUE AND 
160 005320 000000 000226 000106 “WORD 0,150.,106 “ACCESS INDICATOR ARE BYTES. THE 
161 005326 000000 000264 107 “WORD 0,180.,107 “FORMAT IS AS FOLLOWS: 
162 005334 000000 000322 000110 “WORD 0,210.,110 : 
163 005 000000 000360 000111 "WORD 0,240.,111 1 -----+----------------------------- 
164 005350 000000 000416 000112 "WORD 0.270.,112 : ROW # = VRICLS - LO BYTE 0 
165 005356 000014 0 000102 "wORD 12.,0,102 t ee-------------- === -------------- 
166 005364 000014 000036 000103 “WORD = 12. , 30.103 : ROW # - VRTCLS - HI BYTE 1 
167 005372 000014 000074 000104 "WORD 12..60.,104 | e------------------------=-------- 
168 005400 000014 000132 000105 "WORD 12..90..105 : COLUMN # - HRZTLS - LO BYTE 2 
169 005406 000014 000170 000106 "WORD 12..120.,106 { e-------------------+------=------ 
170 005414 000014 000226 000107 “WORD 12.,150.,107 : COLUMN # - HRZTLS - HI BYTE 3 
171 005422 000014 264 000110 "WORD 12..180..110 teeee----------------=----=-------- 
172 005430 000014 000322 000111 ~ WORD 12.,210.,111 ; UNIQUENESS INDICATOR = 1=UNIQUE 4 
173 005436 000014 000112 "WORD 12..240..112 1 ecee neon onan een none n === === a= a- 
174 005444 000014 000416 000113 ~ WORD 12.,e70.,113 3 ASCII BYTE FOR PRINTING 5 
175 005452 0000 000103 "WORD 24..0,108 | --------+------------------------- 
176 005460 000030 000036 000104 "WORD 246..30.,104 : 
177 005466 000030 000074 000105 "WORD 26..60..105 : 
178 005474 000030 000132 000106 . WORD 24.,90.,106 : (THE NUMBER TO THE RIGHT IN THE ABOVE 
179 005502 000030 000170 000107 “WORD 24.,120.,107 * FIGURE IS THE BYTE OFFSET FROM THE 
180 005510 000030 000226 000110 "WORD 26..150..110 ; TABLE ENTRY ADDRESS.) 
181 005516 000030 000111 "WORD 26..180.,111 : 
182 005526 000030 000322 000112 "WORD 26..210.,112 ; 
183 32 000030 00011 "WORD 26..260.,113 : 
1B4 005540 000030 000416 000714 "WORD 24. ,270.,114 ; 
185 005546 000064 000000 000706 "WORD 36..0,1 ; 
186 005554 000044 000036 000105 "WORD 36... 30. 105 : 
187 005 000044 000074 000106 "WORD  36..60..106 ; 
188 005570 000064 000132 000107 "WORD 36.,90.,107 
189 005576 000064 000170 000110 "WORD 36..120.,110 
190 00 000064 26 000111 “WORD 36.,150.,111 
191 005612 000064 0001 1@ “WORD 36. .180..112 
192 00 090064 000322 00017 “WORD 36... 210.11 
193 00 0000464 000360 000114 -WORD 36..260..114 
194 005634 000066 000416 000115 “WORD ..270,,115 
195 002642 000060 000000 900105 “GORD 4 » 108 
138 Mo3eee Boob) Boers GoOTS er: ert ee *, 
198 005664 000060 000132 000110 “WORD 48..90,,110 
199 005672 000060 000170 000111 “WORD = 4B... 120.111 
200 005700 000060 oe 112 "wORD «= 48. 1 0.4118 
201 005706 900060 . WORD 8.180.411 
20e 005714 322 fi": “WORD «= 4B... 270., 114 
203 005722 000060 9005 gs 1§ {WORD = 4B... 240.,11> 

005 000060 1 116 “WORD 48.,270.,116 

005736 000076 900106 “WORD 60..0,106 

005744 000076 0000 10 “WORD 60. , 30.107 
507 005752 % % 110 “WORD 60.,60..110 
208 005760 % 138 11? «WORD = 60.,90.,111 
209 005766 000076 1 112 -WORD 60.,120..112 


el NS ~ 


0 NOT SEPARATE THE ABOVE TABLE! 
ROM THE FOLLOWING 3 LINES.....! 


040 041 FRONT: .BYTE ZERO,ZERO,ONE ;ARGUMENTS FOR SELECT FRONT TRAY. TEST #13! 


LEVEN : 
SEED1: [WORD 1294. SEED FOR RANDOM NUMBER GENERATOR 
SEED2: WORD 5648. SEED FOR RANDOM NUMBER GENERATOR 


5 ; TEMPLATES 
266 006430 170377 TMPLT1: .WORD 170377 ;8ITS 8 = 11 USED IN DECODING PRINTER TRANSMISSIONS 


1 3 
SEQ 34 
GLOBAL DATA SECTION 
210 005774 000076 000226 000113 .WORD 60.,150.,113 
211 006002 000074 600264 000114 “WORD 60.,180.,114 
212 006010 000074 000322 000115 “WORD 60.,210..115 
273 006016 000074 000360 000116 “WORD 60..240.,116 
214 006026 000076 000416 000117 -WORD 60.,270.,117 
215 006032 000110 000000 000107 “WORD 72..0,107 
| 216 O%NGO 000110 000036 000110 “WORD 72.,30.,110 
217 0060466 000110 000074 000111 “WORD 72.,60..111 
| 218 006054 000110 000132 000112 “WORD 72.,90..112 
219 006062 000110 000170 000113 “WORD 72.,120.,113 
| 220 006070 000110 000226 000114 “WORD 72.,150.,114 
| 221 006076 000110 000264 000115 -WORD 72.,180.,115 
| 222 006104 000110 000322 000116 “WORD 72.,210.,116 
223 006112 000110 000360 000117 “WORD 72.,240.,117 
| 224 006120 000110 000416 000120 “WORD 72.,270.,120 
225 006126 000124 000000 000110 “WORD 84..0,110 
| 226 006134 000124 000036 000111 "WORD 84..36.,111 
227 006142 000124 000074 000112 "WORD 84..60..112 
228 006150 000124 000132 000113 "WORD 84..90..113 
229 606156 000124 060170 000114 "WORD 84..120.,114 
230 000124 000226 000115 "WORD 84..150..115 
231 006172 (00124 000264 000116 "WORD 84..180..116 
232 006200 000124 000322 000117 "WORD 84..210..117 
233 006206 000124 000360 120 "WORD 84..240..120 
006214 000124 000416 000121 “WORD 84..270..121 
235 006222 000140 000000 000111 "WORD 96..0,111 
006230 000140 000036 000112 “WORD 96..30.,112 
237 006236 000140 000074 00113 “WORD 96.,60..113 
238 006244 000140 000132 000114 “WORD 96..90..114 
239 006252 000140 000170 000115 “WORD 96..120.,115 
240 000140 000226 000116 “WORD 96.,150..116 
241 006266 000140 000264 000117 “WORD 96.,180.,117 
242 006274 000140 000322 000120 “WORD 210.120 
243 006302 000140 000121 ~ WORD -°240..121 
244 006310 140 000416 000122 .~ WORD 96..270.,122 
245 006316 000154 000 000112 “WORD 108.,0,112 
246 006324 000154 000036 000113 “WORD 108..30.,113 
247 006332 000154 000074 000114 “WORD 108..60.,114 
248 0 000154 000132 000115 “WORD 108..90..115 
249 006346 000154 000170 116 “WORD 108..120.,116 
250 006354 000154 000226 000117 “WORD 108..150..117 
251 2 000154 000120 “WORD 108..180..120 j eewew wwe wenn nnn nnn ewww nnn on nn=n= 
252 006370 000154 000322 000121 -WORD 108..210..121 
253 006376 000154 000 000122 “WORD 108..240..122 i 
25 04 000154 000416 000123 “WORD 108..270..123 
040 
040 040 042 REAR: .BYTE  ZERO.ZERO.TWO :ARGUMENTS FOR SELECT REAR TRAY. TEST #13! 
0 006420 057 057 057 NULL: BYTE HEXF ,HEXF ,HEXF ;ARGUMENTS FOR SELECT NULL TRAY. TEST #13! 
416 
020 





| GLOBAL DATA SECTION 


267 006432 
0064 34 


nN 
~N 
vw 
nt 
Nm 


WONAUWUISWN—O 


WWNINNWNIWNNWWWWWw 
3 2 os SS HS Ses 
So 

Ww 

Nm 

—" 


3 
322 006522 
323 006524 


177417 
177760 


000900 
000000 


017070 


TMPLT2: 
TMPLT3: 


TCRENA: 
JUNKPL : 


LPRINI: 


TCRTBL: . 


BAUTBL: . 


ERWORD: . 
CRNTPR: . 


DIRCTN: . 
OUTCTR: 


OUTSDC: . 
FLTRDY: . 


. WORD 
. WORD 


. WORD 
. WORD 


. WORD 


i 

177417 :BITS 4 = 7 USED IN CONVRT TO DECODE PRINTER XMISSIONS 
177760 :BITS 0 - 3 

:WILL CONTAIN TCR ARGUMENT = CHANNEL SELECT 

“WILL CONTAIN NOTHING IF DZ CHOSEN. WILL 

‘CONTAIN JUNK IF DL CHOSEN. SEE SENCHR ROUT INE 
017070 ZLPR INITIALIZE REGISTER. 

+ THE FOLLOWING STATUS 1S ASSUMED: 

: 2)9600 BAUD 

: 3)NO PARITY 

: 4)2 UNIT STOP CODE 

; 5)8 BIT CHARACTER LENGTH 
1 “TABLE OF BIT POSITIONS USED TO SET UP THE 
é ‘TCR REGISTER FOR THE APPROPRIATE CHANNEL. 
8. 
16. 
32. 
64. 
128. 
1280. s TABLE OF MASKS TO USE IN SETTING THE BAUD 
1408. “RATE FOR THE PRINTER IN THE LPR REGISTER. 
2560. 
3072. 
3584. 
0 :CONTAINS VARIOUS ERROR FLAGS 
0 ‘CONTAINS THE COUNT OF CHARACTERS ALREADY PRINTED 

ON THE CURRENT LINE IN THE BIDIRECTIONAL PRINTING 

0 ‘CURRENT PRINTING DIRECTION. O=FORWARD, 1=REVERSE 


: COUNTERS USED IN WAITXN 
AND GETCHR TO WAIT OUT THE PRINTER OPERATIONS. 
TINDICATES FAILURE TO FIND TRANSMIT READY CONDITION. 
CHARACTER DEFINITIONS 


Hyg STORAGE FOR A BYTE VALUE. TEST #13 


021 OCTAL 021 = ASCII **XON** 
033 OCTAL 033 = ASCII ‘ESC 

; STORAGE FOR A SINGLE CHARACTER 
032 OCTAL 032 = ASCII **2"' 


SEQ 35 


pot tee 


324 006525 


$43 006647 


344 006707 


GLOBAL DATA SECTION 


as So es 
PNY SYM SS RUN VR Vans 
WO URNS HAWRNS HAWOM 


aw 


ER 
“soe 


103 


100 


eed aed eed ed eed wed ed 
AONE BWW ety si asd Ge 
MM KON eAWOVYMNS OVMNS HOW 


ed ed ed od ot I 


oo —_— 
FF NNO 


101 


MrnN-—O 
UPINEHAWOW —-AWOMDN 


—3 ed ed od td 3 I — ot oe od od od 


AOAWIMSEAW W 


~ENABL L 
CHRLST: 


= a 
ASCII = /0/ SINGLE CHARACTER ‘‘Q"' 
ASCII /C/ SINGLE CHARACTER ‘'C"’ 
-ASCI] = /B/ SINGLE CHARACTER ‘B"' 
eASCII /X/ SINGLE CHARACTER ‘'x"' 
eASCII = /A/ SINGLE CHARACTER ‘‘A"' 
«ASCII /0/ SINGLE CHARACTER ‘°° 
eASCII /1/ SINGLE CHARACTER ‘'1"° 
s eASCII /./ SINGLE CHARACTER ‘'."* 
.ASCII /ACA:/ ;WORST CASE SEQUENCE FOR TEST #8 
ASCII / / SINGLE SPACE 
ASCII / /<15> 


PRINTED IN TEST 5 BETWEEN LINEFEEDS 


THE REPEATING PATTERN OF ASCII PRINTABLE CHARACTERS. 


C 
SASCII /!"'#$%8" () #+,=./<57>/0123456789: ; <=> ?@ABCDEF GH] JKLMNOPORS TUVWXYZ/ 


eASCII /E\J*_/<140>/abc def ghi jk lmnoparstuvwxy2/ 


sBYTE 173,174,175,176 
LASCII /!''#$%8" (0 **, =. /<57>/0123456789/ 


SEQ 36 





SEQ 37 


006732 060 1 
906735 065 064 065 
006740 066 067 070 
006743 071 : 
346 006744 072 073 074 LASCII /:2<=>?@ABCDEF GHI JKLMNOPGRS TuvWwXxYZ0\J*_/<140>/abcde fghi jklmnoparstuv/ 
006747 075 076 077 
006752 100 101 102 
006755 103 104 105 
006760 106 107 110 
006763 111 112 113 
0067 114 115 116 
006771 117 120 121 
006774 122 123 124 
006777 125 126 127 
007002 130 131 132 
700 133 134 135 
607010 136 137 140 
007013 141 142 143 
007016 144 145 146 
007021 147 150 151 
007024 152 153 154 
007027 155 156 157 
007032 160 161 162 
007035 163 164 165 
007040 166 
347 007041 167 170 171 eASCII /wxy2/ 
007044 172 
348 007045 173 174 175 -BYTE 173,174,175,176 
007050 176 
349 007051 041 042 043 SASCII /!'#$%8" () #4, -./<57>/0123456789: ; <=> ?@ABCEDF GH] JKLMNOPOQRSTU/ 
007054 044 045 046 
007057 047 050 051 


007104 
007107 077 100 


101 
007112 102 103 105 
007115 104 106 107 
007120 110 111 112 
007123 113 114 115 
007126 116 117 120 
007131 121 122 123 
007134 124 125 

350 007136 126 127 130 eASCII /VWXYZE\J*_/<140>/abcdefghi jk lmnopaqrstuvwxy2/ 

007141 131 132 133 
007144 134 135 136 
007147 137 140 141 
007152 142 143 144 
007155 145 146 147 
007160 150 151 152 


| mM 3 
| SEQ 38 
| GLOBAL DATA SECTION 
| 007163 183 154 155 
7166 156 157 160 
007171 161 162 163 
007174 164 165 166 
| 007177 167 170 171 
007202 172 
351 -DSABL LC 
338 
354 007203 124 110 111 FBIM: .ASCII /Ti4I1S MESSAGE SHOULD BE PRINTED AT THE BOTTOM OF THE PAGE./<15> 
007206 123 040 115 
007211 105 123 123 
007214 101 107 105 
007217 040 123 110 
007222 117 125 114 
007225 104 040 102 
007230 105 040 120 
007233 122 111 116 
007236 124 105 104 
007241 040 101 124 
007244 040 124 110 
007247 105 040 102 
007252 117 124 124 
007255 117 115 040 
007260 117 106 040 
007263 124 110 105 
007266 040 120 101 
007271 107 105 056 
007274 015 
355 
356 : 
357 : 
$25 : VARIABLE ASSIGNMENTS 
ae EVEN 
362 3 THE FOLLOWING LABELS ARE USED WITH THE INTERFACE OPTION WHICH THE 
or . LOQPSE IS CONNECTED TO. : 
365 007276 000000 RCSR: . WORD zADDRESS OF THE RECEIVER CSR REGISTER 
000000 XCSR: . WORD ADDRESS OF THE TRANSMITTER CSR REGISTER 
367 007302 000000 RBUF : . WORD :ADDRESS OF THE RECEIVER BUFFER 
000000 BUF : .~ WORD :ADDRESS OF THE TRANSMITTER BUFFER 
369 007306 000000 LPR: . WORD sADDRESS OF THE LINE PARAMETER REGISTER (D211) 
370 007310 000000 TCR: . WORD sADDRESS OF THE TRANSMITTER CONTROL REGISTER (D211) 
371 007312 000000 TDR: .~ WORD sADDRESS OF THE TRANSMITTER DATA REGISTER (DZ11) 
206 007314 000000 PGMCTR: .WORD sADDRESS + 4 WHERE THE LAST TRANSMISSION CALL OCCURRED. 
is 
376 007316 010361 ERMSGB: .WORD  EDFMO TABLE OF ERROR MESSAGE ADDRESSES USED IN 
377 007320 010422 -WORD EDFM1 
378 007322 01047 -WORD EDFM2 
4 010543 -WORD EDFM3 
380 007326 010622 -WORD EDFM4 
381 007330 010650 »WORD EDFMS ;THE ERRORS ROUTINE. 
382 007332 010677 -WORD EDFM6 


383 007334 


GLOBAL DATA SECTION 


. WORD 

WORD 

. WORD 

WORD 

.~ WORD 

. WORD 

WORD 

BFRA: BLKB 

TOPSTK: .WORD 

BFRB . WORD 

BFRC: .~ WORD 

BFRD: -WORD 

SPCSIZ: .WORD 

LINN: . WORD 

LINSIZ: .WORD 

TRDYBT: .WORD 

MNEB1 BYTE 

MNEB2 BYTE 

MNEB3 BYTE 

EVEN 

MLTLIN: .WORD 
DELCNT: .WORD . 

NDATA: .WORD 

HITARG: .BYTE 

EVEN 

LINCNT: . D 

CHRCNT: .WORD 

CCOUNT: .WORD 


300. 


SEQ 39 


;BUFFER FOR INPUT FROM USER AND ALSO USED AS A 
SOFTWARE STACK 

[USED TO POINT TO THE TOP OF THE SOFTWARE STACK 
[WHEN NEEDED. #BFRA + 

: DEFAULT, AREAS FOR GMANID QUESTIONS. MAY BE CLEARED. 


7 THE NUMBER OF HORIZONTAL INCREMENTS PER SPACE. 
7 THE NUMBER OF HORIZONTAL INCREMENTS PER LINE. 
7 THE NUMBER OF CHARACTERS PER LINE ON PRINTER. 
7 TRANSMIT READY BIT POSITION. VALUE IS SET DYNAMICALLY 


7IN THE INITIALIZATION CODE SO THAT BOTH SINGLE LINE 
: INTERFACES AND DZ11 INTERFACES MAY BE USED. 


:USED IN PROCEDURE CONVRT: 

“USED TO PASS A MNEMONIC VALUE FROM THE CONVERSION 
TROUTINE. A SINGLE WORD VALUE ACCEPTED, THREE BYTES 
‘RETURNED TO CALLER: MNEB1, MNEB2, MNEBS. 


INDICATOR: MULTILINE INTERFACE?=1 SINGLE LINE?-0 


COUNTER OF SMALL TIME INCREMENTS USED IN DELAY ROUTINE 


NO DEVICE AT THAT ADDRESS INDICATOR. UNIBUS FAILURE 
TO FIND A DEVICE AT THE REFERENCED ADDRESS CAUSES A 
STRAP TO OCCUR WHICH IN TURN WILL SET THE NDATA WORD 


‘TEMPORARY STORAGE OF THE HIT COUNT ARGUMENT USED IN 
>SET HIT COUNT TEST. 


yA LINE COUNTER USED IN TEST #5. PAPER POSITIONING TEST 
yA CHARACTER COUNTER USED IN TEST #6, WHERE ONE LINE OF 


sEaCe CHARACTER IS PRINTED. 
A COUNT OF CYCLES, USED IN TEST #11= LIFT/DROP RIBBON 





-———_-— 


GLOBAL DATA SECTION 
ore 010070 000000 


446 
447 


INUPB: 


ERRTBL 


ERRTYP:: 


» SBTTL 


. WORD 


WORD 


“WORD 
“WORD 


;AN INDICATOR OF WHETHER THE PRINTER RIBBON IS IN. THE | 
“UP OR DOWN POSITION. MANL D 


0 
0 
0 
0 
I 


GLOBAL TEXT SECTION 


TEST #11, 


LOCAL PROC. 


LSERRTAL:: 


SEQ 40 


: SEQ 41 
GLOBAL TEXT SECTION 
| 1 
| 2 3+? 
3 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
4 : MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
| Z ; MORE THAN ONE TEST. 
2 
1b : NAMES OF DEVICES SUPPORTED BY PROGRAM 
11 010102 DEVTYP <LQPSE=F SERIAL LETTER QUALITY PRINTER> 
| 010102 LSDVTYP:: 
010102 114 121 120 -ASCIZ /LOPSE=F SERIAL LETT 
010105 123 105 055 
010110 106 040 123 
010113 105 122 111 
010116 101 114 040 
010121 114 105 124 
010124 124 105 122 
C19127 040 121 125 
010132 101 114 111 
010135 124 131 040 
010140 120 122 111 
010143 116 124 105 
010146 122 000 
EVEN 
12 x 
13 
‘3 3; TEST DESCRIPTION 
16 ; 
17 010150 DESCRIPT <DIAGNOSTIC FOR LQPSE-F SERIAL PRINTER ON PDP=-11> 
010150 LSDESC:: 
/ 010150 104 111 101 -ASCIZ /DIAGNOSTIC FOR LOPS 
010153 107 116 117 
010156 123 124 111 
010161 103 040 106 
010164 117 122 040 
010167 114 121 120 
010172 123 105 055 
010175 106 040 123 
010200 105 122 111 
010203 101 114 040 
10206 120 122 111 
010211 116 124 105 
010214 122 040 117 
010217 116 040 120 
010222 104 120 055 
010225 061 061 000 


THIS PROGRAM WILL PERFORM UP TO THIRTEEN SEQUENTIAL TESTS ON THE 
LOPSE=F SERIAL INTERFACE PRINTER. THE TESTS WILL CHECK BOTH THE 
LOCAL PRINTER SOFTWARE AND THE PRINTER HARDWARE BY SENDING VARIOUS 
CHARACTER SEQUENCES TO THE PRINTER WHICH WILL CHALLENGE THE PRINTER 
SPECIFIED CAPABILITIES. A PRINT PATTERN WILL BE GENERATED ON THE 


RPVUY sa 
| 
| 
| 
| 


25 : PRINTER WHICH WILL BE USED IN THE DIAGNOSTIC PROCESS BY THE FIELD 
$$ SERVICE TECHNICIAN. 
28 EVEN 
eg 
j . 
| ¢ : FORMAT STATEMENTS USED IN PRINT CALLS 
33 
% 3 
3 “scien yh i aa i am enamine inate eal ia 
36 ; 
| e ; FRROR STATEMENT TABLES 
39 “ THESE TABLES ARE USED BY THE ERRDF, PRINTB, AND PRINTX MACROS 
” ; IN THE PROCESS OF PRINTING ERROR MESSAGES TO THE USER AT THE CONSOLE. 
“ 3 
$4 TCE TST TEP TTT TTT OTTITT TTT TT ee ie Tt leh 
“ ; 
j ‘4 : GENERAL FORMATS FOR OUTPUT OF PC AT TIME OF CALL AND. ADDRESS OF 
7 : LATEST TRANSMISSION. 
47 abt 045 116 045 PRTIBMO: .ASCIZ /%N%AERROR DETECTED AFTER CALL AT PC: %06/ 
01023 101 105 122 
10236 122 117 122 
10241 040 040 104 
010244 105 124 105 
0102467 103 124 105 
010252 104 040 101 
010255 106 124 105 
010260 122 040 103 
010263 101 114 114 
010266 040 101 124 
010271 040 120 103 
010274 072 040 045 
~ 010277 117 066 000 
49 010302 045 116 045 PRTYXMO: .ASCIZ /%N%ALAST TRANSMISSION STARTED AT LOCATION: %06/ 
010305 101 114 101 
010310 123 124 040 
010313 124 122 101 
010316 116 123 115 
010321 111 123 123 
010324 111 117 116 
010327 040 123 124 
010332 101 122 124 
010335 105 104 040 
010340 101 124 040 
010343 114 117 103 
010346 101 124 111 
010351 117 116 072 
010354 040 045 117 
010357 066 000 
5¢ j 
51 : 
52 LUPORAME ELSE SSRESUSCS CPDL FERRE SLSR DOS OS EUR SERIES ETRE CERT CCAS ONeee Tare 
53 


SEQ 42 


| SEQ 43 
GLOBAL TEXT SECTION 


54 ; ERWORD BIT-0 1/0 FAILURE 


55 ; 
56 010361 111 055 117 —PTMO: .ASCIZ /I-0 FAILURE DETECTED AT PRINTER./ 
010364 040 106 101 
910367 111 114 125 
010372 122 105 040 
010375 104 105 124 
| 010400 105 103 124 
010403 105 104 040 
010406 101 124 040 
| 010411 120 122 111 
010414 116 124 105 
.- 010417 122 056 000 
58 : USE OF THESE STRINGS WILL BE AS FOLLOWS... 
59 : ERRDF  #NUMO,EDFM8 <DEVICE FATAL ERROR CALL 
60 : PRINTIB PRTBMO,PGMCTR -PRINT BASIC ERROR MESSAGE 
61 : PRINTX PRTXMO.TRXADD,ERWORD § -PRINT EXTENDED ERROR MESSAGE 
63 S pb bene COSHH EOKSEERES COR C ECS OCESESEEESCO CERO SERON SE ODENEEE SORES CHD EE EN OES 
* ae : 
+ : ERWORD BIT=-1 BUFFER FULL 
67 010422 104 105 126 EDFM1: .ASCIZ /DEVICE FATAL ERROR. PRINTER BUFFER FULL. / 
010425 111 103 105 
010430 040 106 101 
010433 124 101 114 
010436 040 105 122 
010441 122 117 122 
010444 056 040 040 
010447 120 122 111 
010452 116 124 105 
010455 122 040 102 
010460 125 106 106 
010463 105 122 040 
010466 106 125 114 
910471 114 056 040 
a 010474 000 
69 : USE OF THESE STRINGS WILL BE AS FOLLOWS... 
70 : ERRDF  #NUM7,EDFM1 =DEVICE FATAL ERROR CALL 
71 : PRINTB PRTBMO,PGMCTR -PRINT BASIC ERROR MESSAGE 
7 : PRINTX PRTXMO.TRXADD.ERWORD -PRINT EXTENDED ERROR MESSAGE 
74 ereeeeeeeeeeeeeeeeene eeoeeeeeeeeeeeeeeeeeeee eeceeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
75 ; 
76 : ERWORD BIT-2 PROM/RAM FAILURE 
78 010475 120 122 117 EDEM2: .ASCIZ /P<0M/<57>/RAM FAILURE DETECTED BY PRINTER./ 
10500 115 057 122 
010503 101 115 040 
10506 106 101 111 
010511 114 125 122 
010514 105 040 104 
010517 105 124 105 
010522 103 124 105 
010525 104 040 102 


GLOBAL TEXT SECTION 


010530 131 040 120 
| 010533 122 111 116 
010536 124 105 122 
- 010541 056 000 
j ; 
| 80 : USE OF THESE STRINGS WILL BE AS FOLLOWS... 
j 81 3 ERRDF ANUMB ,EDFM ee -DEVICE FATAL ERROR CALL 
82 ; PRINTB PRTRMO, PGMCT -PRINT BASIC ERROR MESSAGE 
: PRINTX PRTXMO, TRRADD, ERWORD -PRINT EXTENDED ERROR MESSAGE 
| 8 de oo pen dnresrnbibedasedenessedirnd sb puankensenen eer eeNeenahets 
4 ; ERWORD BIT-3 PRINTER ERROR = N OUT OF RANGE IN ESC SEQUENCE 
| 89 010543 120 122 111 EDFM3: .ASCIZ /PRINTER ERROR: N OUT OF RANGE IN ESC SEQUENCE ./ 
010546 116 124 105 
010551 122 040 105 
010554 122 122 117 
010557 122 072 040 
C10562 116 040 117 
010565 125 124 040 
010570 117 106 040 
010573 122 101 116 
010576 107 105 040 
010601 111 116 040 
| 010604 105 123 103 
010607 040 123 105 
010612 121 125 105 
010615 116 103 105 
- 010620 056 000 
91 3 USE OF THESE STRINGS WILL BE AS FOLLOWS. 
92 BS ERRDF #NUMS , ye -DEVICE FATAL ERROR CALL 
93 : PRINTB PRTRMO, PGM -PRINT BASIC ERROR MESSAGE 
o 2 PRINTX PRTXMO, 4 ding ERWORD -PRINT EXTENDED ERROR MESSAGE 
96 Seb anetbenesbehuese seeeeeesdeeneeed bandkwetesekdhsaeneserseenaneredheseans ers 
97 : 
= ; ERWORD BIT-4 PAUSE SWITCH 
100 010622 120 101 125 EDFM4: .ASCIZ /PAUSE SWITCH PRESSED./ 
010625 123 105 040 
010630 123 127 111 
010633 124 103 110 
010636 040 120 122 
010641 105 123 123 
010644 105 104 056 
101 010647 000 
102 ;PRTBMO AND PRTXMO as USED IN THIS ERROR RESPONSE ALSO. USE OF THESE STRINGS 
‘ty sWILL BE AS FOLLOWS.. 
105 3 USE OF THESE STRINGS WILL BE AS FOLLOWS. 
106 ‘ ERRDF #NUM2 , EDF ae -DEVICE FATAL ERROR CALL 
107 : PRINTB PRTBMO, PGM -PRINT BASIC ERROR MESSAGE 
108 : PRINTX PRTXMO, A ar ding ERWORD “PRINT EXTENDED ERROR MESSAGE 


SEQ 44 


SEQ 45 
GLOBAL TEXT SECTION 
110 STP eT TT eT TTT TTT TTT TE TTT Ll 
111 ; 
18 5 ERWORD BIT=5 RIBBON OUT 
114 9010650 122 111 102 EDFMS: .ASCTZ /RIBBON OUT ON PRINTER./ 
010653 102 117 116 
010656 040 117 125 
010661 124 040 117 
010664 116 040 120 
010667 122 111 116 
010672 124 105 122 
118 010675 056 000 
116 ; USE OF THESE STRINGS WILL BE AS FOLLOWS... 
117 : ERRDF A#NUMS , gt a on -DEVICE FATAL ERROR CALL 
118 s PRINTB PRTBMO,P -PRINT BASIC ERROR MESSAGE 
be : PRINTX PRTXMO, 4a Fing ERWORD -PRINT EXTENDED ERROR MESSAGE 
1s} ee ee eT eee ere ee TT eer TT ret te 
7 : ERWORD BIT-6 UNDEF INED CHARACTER OR ESC SEQUENCE RECEIVED. 
125 010677 125 116 104 EDFM6: .ASCIZ /UNDEFINED CHARACTER OR ESC SEQUENCE RECEIVED./ 
010702 105 106 111 
910705 116 105 104 
010710 040 103 110 
010713 101 122 101 
010716 103 124 105 
010721 122 040 117 
010724 122 040 105 
010727 123 103 040 
010732 123 105 121 
010735 125 105 116 
010740 103 105 040 
010743 122 105 103 
010746 105 111 126 
010751 105 104 056 
ins 010754 000 
127 2 USE OF THESE STRINGS WILL BE AS FOLLOWS... 
128 ‘ ERRDF ANUMG , EDF . DEVICE FATAL ERROR CALL 
129 Ee PRINTB PRTBMO, PGM -PRINT BASIC ERROR MESSAGE 
in . PRINTX PRTXMO, a a dig ERWORD -PRINT EXTENDED ERROR MESSAGE 
132 PT Te SE eee cca eset sak Sect hss ao Guseh "alias ova a aaah aurea aac ae asl a a ee ae ae el 
133 5 
= s ERWORD BIT~7 SHEET FEEDER ERROR 
136 010755 104 105 126 EDEM?: -ASCIZ /DEVICE FATAL ERROR. SHEET FEEDER ERROR./ 
010760 111 103 105 
010763 040 106 101 
010766 124 101 114 
010771 040 105 122 
010774 122 117 122 
010777 056 040 040 
011002 123 110 105 
011005 105 124 040 


H 4 
SEQ 46 
GLOBAL TEXT SECTION 
01101 106 105 105 
01101 104 105 122 
011016 040 105 122 
011021 122 117 122 
137 911024 056 000 
138 3 USE OF THESE STRINGS WILL BE AS FOLLOWS... 
139 2 ERRDF A#NUMS ,EDFM7 -DEVICE FATAL ERROR CALL 
' 140 PRINTB PRTBMO,PGMCTR -PRINT BASIC ERROR MESSAGE 
33 S PRINTX PR7XMO,TRXADD,ERWORD -PRINT EXTENDED ERROR MESSAGE 
| 14 . 
143 5 pda ns en Wse dees eNee COSCO eds 5650550082 60050406CS HEROD SOF SRE ORS HES SSEEeESECE ESS 
re 
4 ; 
| 146 071026 i27 122 EDFM8: .ASCII /WARNING: SOFTWARE ERROR. THIS MESSAGE SHOULD NOT PRINT/ 
011031 116 111 116 
011034 107 072 040 
011037 040 123 117 
011042 1 127 
C11045 101 122 105 
011050 040 105 122 
011053 12e 117 122 
011056 055 04 040 
011061 124 110 111 
011064 123 040 115 
011067 105 123 123 
011072 101 107 105 
011075 04C 123 110 
011100 11" 125 114 
011103 104 040 116 
011106 117 124 040 
011111 120 122 111 
011114 116 124 
147 011116 125 116 114 -ASCIZ /UNLESS ERROR WORD (ERWORD) HAS BEEN CORRUPTED. / 
011121 105 123 123 
011124 040 105 122 
011127 122 117 122 
011132 040 127 117 
011135 122 104 040 
011140 050 105 122 
011143 127 117 122 
011146 104 051 040 
011151 110 101 123 
011154 040 102 105 
011157 105 116 040 
011162 103 117 122 
011165 122 125 120 
011170 124 105 104 
011173 056 000 
148 011175 105 122 122 EDFM9: .ASCIZ /ERROR DETECTED BY PRINTER,/ 
011200 - 117 122 040 
011203 104 105 124 
011206 105 103 124 
011211 105 104 040 
011214 102 131 040 
011217 120 122 111 
011222 116 124 105 


— 





1 4 
SEQ 47 
GLOBAL TEXT SECTION 
011225 122 956 000 
149 011230 127 101 122 EDFMA: .ASCI] /WARNING: SOFTWARE ERROR. ERROR WORD (ERWORD) HAS BEEN/ 
011238 «116 111 116 
011236 107 = 072-—Ss«(K 
| 011241 123 117-106 
011244 124 127 101 
| 011247 122 105 040 
| 011252 105 122 122 
011255 117 122 056 
| 011260 040 040 105 
011263 122 122 117 
| 011266 122 040 127 
011271 117 122 104 
011276 040 050 105 
011277 122 or Ou 
011302 122 104 051 
011305 040 110 101 
011310 123 040 102 
011313 105 105 116 
150 611316 103 117 122 ASCIZ /CORRUPTED./ 
011321 122 125 120 
011324 124 105 104 
011327, 056-~—Ss«(000 
151 011331 127 101 122 EDFMB: .ASCII /WARNING: SOFTWARE ERROR. ERROR WORD (ERWORD) HAS BEEN/ 
011334 116 111 116 
011337 107 072 #040 
011342 123 117-106 
011345 124 127 101 
011350 122 105 040 
011353 =: 105 122 122 
011356 117 122 056 
011361 020 040 105 
011364 122 122 117 
011367 122 040 127 
011372 117 122 104 
011375 =6040-—Ss—s«é510 105 
911400 ~—- 122 127 117 
011403 122 104 051 
011406 040 110 101 
011411 123 0460 ~=102 
011414 105 105 116 
1520114617: 108 117 122 ASCIZ /CORRUPTED./ 
011422 122 125 120 
011425 124 105 104 
53 011430 056000 
154 011432 045 101 127 WAITMX: .ASCIZ /%AWAITING: NOT AN ERROR. / sWHEN GETCHR WAIT STARTS GETTING LONG... 
011435 101 111 124 
011440 111 116 107 
011443 072 0460 040 
011446 116 117 124 
011451 040 101 116 
011454 040 105 122 
011457 122 117 122 
011462 = 05 000 
155 
156 eoenneeenenenneneeeeneeeneeneenwneeenenneeeeneneweee wwe wm ewewe emcee rermclcrermcClc ml rmhClc mC mC Cc Cc TC HOC HOC HRC UOC HrhUc rhCUCc THRO ee Ve ee Ve Vee hemhlc emlClc rmClc rrmCUCc Cc mC TC HC HC CU OCUchOCUM 


| GLOBAL TEXT SECTION 


157 
158 
159 
160 011464 
| 011467 
| 011472 
| 011475 
| 011500 
| 011503 
011506 
| 011511 
011514 
| 011517 
011522 
011525 
011530 
011533 
011536 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 011540 
011543 
011546 
011551 
011554 
011557 
011562 
011565 
911570 
011573 
011576 
011601 
011604 
011607 
011612 
011615 
011620 
172 
173 
17% 
175 
176 
177 
178 
179 011622 
011625 
011630 
011633 
011636 
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ERWORD 


BIT=12 UNEXPECTED CHARACT=R RECEIVED 


EDFMC: .ASCIZ /UNEXPECTED CHARACTER PECEIVED FROM PRINTER. / 


USE OF 


ERWORD 
-ASCIZ 


USE OF 


-ASCII 





THESE STRINGS WILL BE AS FOLLOWS... 

#NUM10 , EDF MC “DEVICE FATAL ERROR CALL 
-PRINT BASIC ERROR MESSAGE 

PRTXMO, TRXADD , ERWORD -PRINT EXTENDED ERROR MESSAGE 


BIT-15 EXPECTED CHARACTER NOT RECEIVED FROM PRINTER 
7EXPECTED CHARACTER NOT RECEIVED FROM THE PRINTER./ 


THESE STRINGS WILL BE AS FOLLOWS... 

#NUM11,EDFMD “DEVICE FATAL ERROR CALL 
PRTBMO ,PGMCTR ~PRINT BASIC ERROR MESSAGE 
PRTXMO, TRXADD ,ERWORD -PRINT EXTENDED ERROR MESSAGE 


/ENZAFAILED TO FIND PRINTER AT DEFAULT ADDRESSES./ 


SEQ 48 
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-ASCII / RESTART PROGRAM. /<12><15> 


.ASCII /%N%ZATHE CSR ADDRESS QUESTION MUST BE EXPLICITLY SPECIFIED./ 


eASCIZ /2NZNZNZNZA, 


SEQ 49 





SEQ 50 


012113 04 040 040 
012116 040 040 040 
012121 040 040 040 
912124 040 040 040 
012127 040 040 040 
012132 040 040 0 
012135 040 040 040 " 

183 012140 000 

184 : ERROR MESSAGE FORMAT FOR FAILURE IN DEFAULT PROCEDURE. 

185 012141 045 116 045 FAILDL: .ASCIZ /%N%AINCORRECT CSR ADDRESS GIVEN. TRY AGAIN.. / 
012144 101 111 116 
012147 103 117 122 
012152 122 105 103 
012155 124 040 103 
012160 123 122 040 
012163 101 104 104 
12166 122 105 123 
C12171 123 040 107 
012174 111 126 105 
012177 116 056 040 
012202 040 124 122 
012205 131 040 101 
012210 107 101 111 
012213 116 056 056 
012216 040 040 040 
012221 040 040 040 
012224 040 040 040 
012227 040 040 040 
012232 040 040 040 
012235 000 

186 012236 045 116 045 FAILDZ: .ASCIZ /%N%AINCORRECT CSR ADDRESS OR CHANNEL GIVEN. TRY AGAIN... / 
012241 101 111 116 
012244 103 117 122 
012247 122 105 103 
012252 124 040 103 
012255 123 122 040 
012260 101 104 104 
012263 122 105 123 
012266 123 040 117 
012271 122 040 103 
012274 110 101 116 
012277 116 105 114 
012302 040 107 111 
012305 126 105 116 
012310 056 040 040 
012313 124 122 131 
012316 040 101 107 
012321 101 111 116 
012324 056 056 056 
012327 040 040 040 
012332 000 

187 012333 045 116 045 FXRDYM: .ASCIZ /%N%AFAILED TO TRANSMIT TO PRINTER, / 
012536 101 106 101 
012341 111 114 105 
012344 104 040 124 








—_———$ - 
mM 4 
SEQ 51 
| GLOBAL TEXT SECTION 
| mm? TF  o8 12% 
| 013352 122 101 116 
| 013355 153115 111 
019360 i«134'i(ti«iH(iti«éiz 
| 019363 = o117,—'—(‘i«COst*«é‘C2207? 
019366 «122 111 116 
| 013371 134 105 122 
0193746 056 040 040 
019377, 040i‘ ti<i«é‘«i 
019402 «040'i(‘iéiti«éiH | 
015405 040 040 040 
019410 060 «4040+ ~=—-040 | 
019413 «040~S's«—<(i«éi 
019416 040 040 040 
012421 040 040 040 | 
019494 040 040 040 
019497 ~—»-000 
188 012430 045 116 045 WFC: .ASCIZ /%N%XAWAITING FOR A CHARACTER FROM THE PRINTER. = NOT AN ERROR./ 
012433 ~—«101 127,—«:101 
012436211 154 111 
019441 116 107 ©0040 
013444 106 2«117,—~St™*«<*2;? 
019447, 040~Ssté«*212001 040 
015452 «103 110 ~—«:101 
013455 122-101 103 
013460 =-134 105 122 
019463 «040'i(‘i‘zKSté«~CS'D 
019466  2©«117-—~=i«‘<X218.—s—«HD 
013471 126 110 «105 
019474 040 120. 122 
019477, 111 116-136 
019502 ~—s-'105 122 056 
019505 040 055 040 
019510 + #«#+116~«117—St*«<2‘i 
015513 040 101 116 
019516 040 ~=«+105 122 
913521 122 #+4117.~—~=C«W‘D 
019524 056 000 
189 012526 045 116 045 TIMOM: .ASCIZ /%N%ZATIME-OUT: CHECK TO SEE IF PRINTER CONNECTED PROPERLY. / 
012531 101 124 111 
012534 15 105 055 
019537, i«4112,—t—<(<i«<SUS 124 
019542 «072,—t:i‘«HSt*~<i«‘«‘i003 
012545 110 135 103 
019550 +113 «4040 ~=«124 
019553 = o117,'i(‘«COst*«é«i02 
012556 ~—S>- 105 105 040 
012561 111 106 040 
012564 120 122 «242111 
019567, s«*116—ti(‘<«‘CS‘ 105 
019572 -S«122~=té<‘«0K:SC*~*«Ci228 
013575 117, -116—Sti‘«*Si2 
012 105 103 «124 
013603 ~—S«105 104 040 
013 120 + 4+122~«2117 
013611 130 ~—-:105 122 
013614 114 131 056 


ei 
— 


| GLOBAL TEXT SECTION 


012617 «040 

015622 ~—=s«:000 
190 
191 
192 


040 


040 


«SBTTL 





GLOBAL ERROR REPORT SECTION 


SEQ 52 





' 
SEQ 53 
GLOBAL ERROR REPORT SECTION 
: ’ 
7? 
5 + THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
4 ; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
| : ; (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 
? 
8 EVEN 
9 0126246 BGNMSG 
5 
12 012624 EXIT MSG 
012624 000167 ~WORD J$JMP 
: 012626 000000 .~ WORD L10001<2-. 
1 
14 
15 
'6 012630 ENDMSG 
012630 L10001: 
612630 1046423 TRAP C$MSG 


17 SRTTL GLOBAL SUBROUTINES SECTION 
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GLOBAL SUBROUTINES SECTION 


Wh 


ptt 
; THE GLOBAL SUBROUTINES SECTION a THE SUBROUTINES 


3; THAT ARE USED IN MORE THAN ONE 


SEQ 54 


ae eee 


GLOBAL SUBROUTINES SECTION 


OONAUSWR- 


ed a ot ot ot I 


RIM 
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Be Be Be Be Be Be Pe Be Be Be Be Se Fe Be Be Be Be Fe Be Be Be Be Be Fe Be Be Be Be Be Be Be 


OUTPUTS 


; ; FONCTTONAL “DESCRIPTION: laa ie a i Nh EN EA ee pg SE Tig 


GLOBAL PROCEDURE XMiT: 


THIS PROCEDURE WILL TRANSMIT CHARACTER SEQUENCES TO THE PRINTER. 
THE SEQUENCE WILL BE TRANSMITTED IN ONE OF TWO MODES: WITh 
BIDIRECTIONAL PRINTING ENABLED AND WITH BIDIRECTIONAL PRINTING 
DISABLED. HERE ARE THREE ARGUMENTS SENT TO THIS ROUTINE IN 
REGISTERS R1, R2, AND R3. R1 IS EXPECTED TO CONTAIN THE ADDRESS 
OF THE FIRST BYTE (ASCII) TO BE SENT TO THE PRINTER CON ~” “ER. 
R2 IS EXPECTED TO CONTAIN THE NUMBER OF BYTES TO BE TR’ .sMi TED 
TO THE PRINTER FROM THE CONTIGUOUS ARRAY WHOSE ADDRESS IA IN R1. 
R3, IF SET TO -1, ENABLES BIDIRECTIONAL PRINTING SOFTWARE TO 
CONTROL THE TRANSMISSION PROCESS. IF R3 IS EQUAL TO ZERO, THEN 
NO BIDIRECTIONAL PRINTING IS PERMITTED AND ALL CARRIAGE CONTROL 
CHARACTERS MUST BE EXPLICITLY SENT BY THE CALLING ROUTINE. 


R1 - ADDRESS OF STRING TO PRINT 
Re = NUMBER OF BYTES IN STRING TO BE PRINTED. 
R3 - IF SET, BIDIRECTIONAL PRINTING IS TO BE ENABLED. 


THE STRING IS PRINTED ON THE PRINTER, 
GREASE - IF SET TO -1, AN ERROR HAS OCCURRED. SET FOR FAST EXIT 


SUBROUTINES USED 


SENCHR = THIS ROUTINE WILL SEND THE CHARACTER TO THE PRINTER 
BUFFER (IF THERE IS ROOM IN THE BUFFER AND NO 
CHARACTERS ARE CURRENTLY BEING RECEIVED. 


SIDE EFFECTS 


THE CONTENTS OF R1 AND R2 ARE NOT PRESERVED. R3, AND RS ARE 
PRESERVED. IF A TRANSMISSION ERROR OCCURS, THIS ROUTINE WILL CAUSE A 
GREASED EXIT TO OCCUR FROM THE CURRENT TEST. 


CALLING SEQUENCE 


PUT THE STRING ADDRESS INTO R1, THE NUMBER OF CHARACTERS TO BE PRINTED 
INTO R2 AND SET R3 TO ENABLE OR DISABLE THE BIDIRECTIONAL PRINTING. 
SET R3 TO 0 FOR NO BIDIRECTIONAL PRINTING. SET R3 TO -1 FOR 
BIDIRECTIONAL ae cm THE CALL IS THEN... 
J . 


SEQ 55 


pa 


—-—————_ 


| SEQ 56 
GLOBAL SUBROUTINES SECTION 
58 012632 011637 007314 XMIT: MOV (SP) ,PGMCTR sSAVE THE CALLING PC + 4 
59 012636 010146 MOV R1,-(SP) 
60 012640 010246 MOV R2.=(SP) 
61 012642 010346 MOV R3_=(SP) :SAVE ALL GUARANTEED 
62 012644 010446 MOV RG.=(SP) : REGISTERS. 
63 012646 010546 MOV RS. =(SP) ; 
65 012650 010137 005246 MOV R1, TRXADD :SAVE THE TRANSMISSION ADDRESS 
67 012654 012705 007352 MOV #BERA,RS :BOTTOM OF SOFTWARE STACK 
68 012660 062705 000226 ADD #150. .R5 STOP OF SOFTWARE STACK 
69 012664 010537 010026 MOV RS, TOPSTK STOP OF STACK ADDRESS 
70 012670 005237 010026 INC TOPSTK “PLUS 1 FOR COUNTING PURPOSES. 
72 012674 005703 TST R3 IF ZERO THEN NO BIDIRECTIONAL PRINTING 
73 012676 001021 BNE BIDIRP SIF SET THEN GOTO BIDIRECTIONAL PRNTG CODE 
75 : 
76 : NO BIDIRECTIONAL PRINTING. ALL CARRIAGE 
77 : CONTROL MUST BE EXPLICITLY SENT BY 
78 : THE CALLING ROUTINE. 
80 012700 010103 MOV R1,R3 :ADDRESS OF THE FIRST CHARACTER IN THE STRING 
81 012702 060203 ADD R2.R3 ; ADDRESS OF THE LAST CHARACTER IN THE STRING 
83 0127046 112102 XSTR: MOVB  (R1)+,R2 :GET THE CHARACTER INTO R2 AND POINT TO NEXT 
84 CHARACTER IN STRING. 
85 012706 005037 002206 CLR GREASE “ASSUME NO PREVIOUS ERRORS. 
86 012712 004737 013402 JSR PC, SENCHR “SEND THE CHARACTER IN R2 TO THE PRINTER. 
88 012716 022737 177777 002206 CMP #-1, GREASE :TIME-OUT ERROR. ECNR STATUS. 
89 012724 001002 BNE LCHYET TEXPRESS EXIT FOR ECNR ERROR REPORT. 
90 012726 000137 013366 JMP EXITX 
92 012732 020103 LCHYET: CMP R1.R3 ‘HAS THE LAST CHARACTER BEEN PRINTED YET? 
93 012734 100763 BMI XSTR SLOOP THROUGH THE LIST UNTIL DONE. 
9 012736 000137 013366 JMP EXITX SAND WHEN DONE WITH STRING, EXIT TEST. 
96 BIDIRECTIONAL PRINTING CODE FOLLOWS.... 
98 012742 010103 BIDIRP: MOV R1.R3 :ADDRESS OF THE STRING TO BE PRINTED 
99 012744 060203 ADD R2.R3 ADDRESS OF LAST CHARACTER TO BE PRINTED. 
10¢ : PLUS 1 FOR COUNTING PURPOSES. 
102 012746 023737 006502 010042 LNcLOO: CMP ~~ CRNTPR,LINSIZ  ;CRNTPR =CURRENT POINTER IS INITIALIZED TO 
103 ZERO BY THE INITCD ROUTINE. CRNTPR KEEPS 
104 : TRACK OF HTE NUMBER OF CHARACTERS PRINTED 
105 ; SINCE THE LAST LINE FEED 
106 012754 100567 BMI SENDR2 :1F CRNTPR LESS. THAN LINSI2 THEN THERE ARE 
107 . MORE CHARACTERS TO PRINT ON THIS LINE. 
108 012756 113702 002314 MOVB LF ,R2 SLINE IS FINISHED. SEND LINE FEED AND REVERSE 
109 012762 004737 013402 JSR PC’ SENCHR : THE PRINT DIRECTION. 
111 012766 005037 006502 CLR CRNTPR RESET THE CHARACTER COUNT FOR THIS LINE. 
112 012772 005737 006506 TST DIRCTN “WHAT IS THE CURRENT PRINT DIRECTION? O=F ORWARD 
115 012776 001100 BNE F WRDO “IF REVERSE (1) THEN CHANGE TO FORWORD PRINT. 
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013016 
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169 
170 013176 
171 


012737 
113702 
004737 
022737 
001560 


112702 
004737 


022737 
001550 


004737 


022737 
001542 


112702 
004737 


022737 
001532 


012700 
116002 
004737 


022737 
001520 


113702 
004737 


112702 
004737 
112702 
004737 


112702 
004737 


112702 
004737 


000456 


GLOBAL SUBROUTINES SECTION 


000001 


002244 
013402 


177777 
000057 
013402 
177777 


013402 
177777 
000044 
013402 
177777 
000004 
002244 
013402 
177777 


006521 
013402 


000057 
013402 


000057 
013402 


000044 
013402 


000073 
013402 


006504 


002206 


002206 


002206 


002206 


002206 


MOV 


MOVB 
JSR 


CMP 
BEQ 


MOVB 
JSR 


CMP 
BEQ 


JSR 


CMP 
BEQ 


MOVB 
JSR 


CMP 
BEQ 


MOV 
MOVB 
JSR 


CMP 
BEQ 


MOVB 
JSR 


MOVB 
JSR 


MOVB 
JSR 


MOVB 
JSR 


MOVB 
JSR 


BR 


#1,DIRCTN 


STCHSZ,R2 
PC, SENCHR 


#=-1,GREASE 
EXITX 
MHEXF ,R2 
PC,SENCHR 
#-1,GREASE 
EXITX 

PC, SENCHR 
#-1, GREASE 
EXITX 
#FOUR,R2 
PC,SENCHR 
#-1,GREASE 
EXITX 


#4,R0 
STCHSZ(RO) ,R2 


PC,SENCHR 
#-1, GREASE 
EXITX 


ESCAPE ,R2 
PC, SENCHR 


MHEXF ,R2 
PC, SENCHR 


MHE XF ,R2 
PC, SENCHR 


#F OUR ,R2 
PC,SENCHR 
#73,R2 

PC,SENCHR 


SENDR2 


y1F FORWARD (1) THEN CHANGE TO REVERSE PRINT. 


ESC’ CHAR 
“TO RESET CHARACTER SIZE TO NEGATIVE 10 CHAR 


SHAS A TIME=OUT OCCURRED? EXPRESS EXIT 
FROM THIS ROUTINE MAY BE REQUIRED. : 


: PER INCH. THIS ENABLES REVERSE <--~' 
: CARRIAGE MOTION WHILE PRINTING. <== 


HAS A TIME-OUT OCCURRED? EXPRESS EXIT 
FROM THIS ROUTINE MAY BE REQUIRED. 


jHEXF ,HEXF ,FOUR= -12 = -10 CHAR/INCH 


HAS A TIME-OUT OCCURRED? EXPRESS EXIT 
FROM THIS ROUTINE MAY BE REQUIRED. 


HAS A TIME-OUT OCCURRED? EXPRESS EXIT 
FROM THIS ROUTINE MAY BE REQUIRED. 


3 SEQUENCE: ESC 1111 1111 0100 A 
; SENT TO THE PRINTER. 


HAS A TIME-OUT OCCURRED? EXPRESS EXIT 
FROM THIS ROUTINE MAY BE REQUIRED. 


NOW MOVE THE CARRIAGE ONE SPACE TO THE 
;LEFT TO EVEN UP THE MARGIN. 


*SEND ESCAPE CHAR TO PRINTER 


NOW TRANSMIT -12 IN THREE HEX VALUES 
: IN THREE CHARACTERS 


SEMI-COLON TO COMPLETE THE SEQUENCE WHERE 
3 ESC HEXF ,HEXF ,FOUR (SEMI-COLON) CAUSES 

3 THE ONE-TENTH INCH SPACE TO THE LEFT. 
THE MARGIN SHOULD NOW BE EVEN. 


NOW SEND THE CHARACTER TO THE PRINTER, 


SEQ 57 


SEQ 58 
GLOBAL SUBROUTINES SECTION 


172 
He 
he 013200 005037 006504 FWRDO: CLR DIRCIN : INDICATE THAT THE DIRECTION IS FORWARD PRINT. 
177 TRESTORE CHARACTER SIZE TO A POSITIVE 10 CHAR 
178 PER INCH. AT LEAST TWO MORE LINES TO GO.... 
' : 
180 013204 113702 002244 MOVB STCHSZ,R2 RESTORE CARRIAGE MOTION TO FORWARD. 
Me 013210 004737 013402 JSR PC,SENCHR 3 
183 013214 022737 177777 002206 CM? #-1, GREASE — A TIME-OUT OCCURRED? EXPRESS EXIT 
MF 013222 001461 BEQ EXITX FROM THIS ROUTINE MAY BE REQUIRED. 
| 
186 013224 112702 000040 MOVB #ZERO,R2 
| H+ £4 013230 004737 013402 JSR PC,SENCHR 
189 013234 022737 177777 002206 CMP #-1, GREASE ;HAS A TIME-OUT OCCURRED? EXPRESS EXIT 
1 013242 001451 BEQ EXITX FROM THIS ROUTINE MAY BE REQUIRED. 
4 013244 004737 013402 JSR PC, SENCHR ;SEQUENCE SENT: ESC 0000 0000 1100 A 
194 013250 022737 177777 002206 CMP #-1, GREASE zHAS A TIME-CUT OCCURRED? EXPRESS EXIT 
4 013256 001443 BEQ EXITX 3FROM THIS ROUTINE MAY BE REQUIRED. 
| 197 013260 112702 000054 MOVB #HEXC Re ;ZERO,ZERO,HEXC = 12 = 10 CHARACTERS/INCH 
in 013264 004737 013402 JSR PC,SENCHR ; 
300 013270 022737 177777 002206 CMP #-1, GREASE HAS A TIME-OUT OCCURRED? EXPRESS EXIT 
201 013276 001433 BEQ EXITX FROM THIS ROUTINE MAY BE REQUIRED. 


202 

205 013300 012700 000004 MOV #4,R0 

204 013306 116002 002244 MOVB STCHSZ(RO),R2 : 

44 013310 004737 013402 JSR PC,SENCHR FORWARD CARRIAGE RESTORED. 


207 013314 022737 177777 002206 CMP #-1, GREASE sHAS A TIME-OUT OCCURRED? EXPRESS EXIT 
208 013322 001421 BEQ EXITX FROM THIS ROUTINE MAY BE REQUIRED. 


209 
210 013324 113702 006541 MOVB SPACE ,R2 NOW TRANSMIT A SPACE TO EVEN UP THE MARGIN. 
3330 004737 013402 JSR PC,SENCHR 3 


13334 112102 SENDR2: MOVB (R1)+,R2 GET THE CHARACTER FOR TRANSMISSION. 
13336 004737 013402 ° JSR PC,SENCHR 2 SEND THE CHARACTER TO THE PRINTER. 
13342 022737 177777 002206 CMP #-) , GREASE 

13350 001406 BEQ EXITX “EXPRESS EXIT IF ANY PROBLEMS. 


13352 005237 006502 INC CRNTPR CURRENT IN-LINE POINTER UPDATED. 


13356 020103 CMP R1,R3 1S THE ADDRESS OF THE NEXT CHARACTER TO BE 
221 * CHARACTER (PLUS 1) TO BE TRANSMITTED? 
222 013 001402 BEQ EXITX :1F NOT YET THERE, REPEAT TRANSMIT PROCESS. 
s$7 013362 000137 012746 JMP LNELOO 


NoMNNononofENonyg 
ad ed od ot at ew I 
WODWNAURWR— 


220 :PRINTED EQUAL TO THE ADDRESS OF THE LAST 
225 013366 012605 EXITX: MOV (SP)+,R5 RESTORE 

226 013370 012604 MOV (SP) +,R4 re. REGISTERS 

227 013372 012603 MOV (SP)+,R3 3 

228 013374 012602 MOV (SP) +,R2 


———S—— —————_—_————— ————————————__—————— —————— ETS = 


| SEQ 59 
| GLOBAL SUBROUTINES SECTION 


229 013376 012601 MOV (SP)+,R1 
1 013400 000207 RTS PC 


GFAFAN SS 


N 
. 


é 
é 
é 
2 
pte 
2 
4 
2 
e 
é 
2 


ES% 





GLOBAL SUBROUTINES SECTION 


DO\VRUE WE =O DONAWUEWR 


— 2 St ee 


19 


54 013446 
55 013452 
56 01 


010246 


010546 


013777 
013777 


020527 
001010 


006442 
0064 36 


007000 


000106 


! 
| 
53 
3454 


173666 
173662 


FORT TYONAL~DESTRIBTION 
GLOBAL PROCEDURE SENCHR: 


Be Be Be Be Be Be Be Be Se Be Be Be Fo Be Be Bi Se Be Be Be Se Se Be Be 
. 


SENCHR: 


SENCH2: 


RESINN: 


SENCLP: 


OUTPUTS 


THIS ROUTINE TAKES THE ASCII BYTE IN REGISTER R2 AND SENDS 


IT TO THE 


R2 


PRINTER = WHEN POSSIBLE. 


- THE LOW BYTE IN R2 IS THE CHARACTER TO BE PRINTED. 


THE CHARACTER IS SENT TO THE PRINTER. 


WAI TXN 


STSERR 


ERROR STATE, 


CMP 
BNE 
PRINTX 


SUBORDINATE ROUTINES USED 


- WAITS FOR THE XON CHARACTER TO BE SENT FROM THE 


PRINTER, 


IF THE XON IS NOT RECEIVED, A TIME-OUT 


ERROR MAY OCCUR AND A GREASED EXIT IS ENABLED. 


- ADJUSTS THE ERROR FLAG-wORD. 


THE PRINTER IS 


QUERIED ABOUT THE PRINTER STATUS. 


FUNCTIONAL SIDE EFFECTS 


THE REGISTERS R2 AND R3 ARE PRESERVED. 
THE GREASED EXIT MAY BE INITIATED. 


R2,-(SP) 


R5,~-(SP) 


LPRINI,@LPR 
patna 


R3 


R3 
R3,47000 
CNTNU 

RS 
R5,#70. 
COVE 
wISTPM 


WITH THE SETTING OF AN 


7 SAVE 
; REGISTERS 
yIf DZ THEN SET PARMS, IF DL THEN NO EFFECT. 
[JF DZ THEN SET CHANNEL. IF DL, NO EFFECT. 
: COUNTER - 
TENABLE “C FROM CONSOLE DURING | LOOP 
“TRAP = C$BRK 


; COUNTER 

; INNER LOOP CHECK 

[KEEP LOOPING UNTIL WE REACH 77000 
SOUTER LOOP COUNTER 


;PRINT A WAITING TO SEND MESSAGE, 
[CONTINUE WITH LOOP IF NOT 70 VET. 
[WAITING TO SEND TO PRINTER MESSAGE. 


SEQ 60 


J 5 
SEQ 61 
GLOBAL SUBROUTINES SECTION . 

013454 013746 005154 MOV wTSTPM, =(SP) 
013460 012746 600001 MOV #1 ,-(SP) 
013464 010600 MOV SP-RO 
013466 104415 TRAP CSPNTX 

“ 013470 062706 000004 ADD #4, SP 

58 013474 020527 000144 COIE: CMP R5,#100. :ALLOW 100 LOOPS BEFORE TIME OUT. 

59 013500 100045 BPL EXETS “FAILURE TO FIND TRDY. 

60 013502 000752 BR RESINN “RESET INNER LOOP 

62 013504 032777 000200 173564 CNTNU: BIT #BIT7,aRCSR :IS RECEIVER READY? SHOULD BE SET IF IT IS. 

63 013512 001007 BNE ALPHA IF SET, ALPHA TAKES CARE OF BUFFER READ. 

65 013514 033777 010044 173556 BETA: BIT TRDYBT.aXCSR —-:RCVR NOT RDY. SEE IF THE TRANSMITTER IS READY 

66 013522 001744 BEQ SENCLP IF ZERO, NOT READY, LOOP AND CHECK AGAIN. 

re 

70 013524 110277 173554 MOVB —-R2, @XBUF :PUT CHARACTER INTO TRANSMITTER BUFFER. 

al 613530 000445 BR EXITS “AND EXIT 

73 

2 013532 017704 173544 ALPHA: MOV @RBUF .R4 :READ THE RECEIVER BUFFER. 

76 013536 120437 006520 CMPB —sR4, XON :1S IT = ‘XON'”? 

7 013542 001764 BEO BETA ‘IF IT IS THEN ALL IS OK, CONTINUE. 

79 013544 120437 006517 CMPB —sR4, XOF F :IS IT = ‘OFF 

80 013550 001007 BNE CHK CAN IF NOT ‘sare hon MAYBE IT IS A “‘CAN’ 

82 013552 004737 013656 JSR PC ,WAITXN :1F IT was AN XOFF THEN WE MUST WAIT FOR 

83 XON AND THEN SEND CHARACTER. 

84 013556 022737 177777 002206 cmp #-1,GREASE “HAS A TIMEOUT OCCURRED? EXPRESS EXIT 

85 013564 001427 BEQ EXITS “FROM THIS ROUTINE MAY BE REQUIRED. 

87 013566 000711 BR SENCH2 :XON FOUND ON TIME. LOOK FOR TRANSMIT READY. 

89 013570 120437 006516 CHKCAN: CMPB —R4,, CAN = CHARACTER = ‘'CAN'’ ? 

90 013574 001416 BEQ SETER ‘IF IT IS THEN SET APPROPRIATE FLAG (ERWORD) 

92 013576 120437 006515 CMPB —sR4, EOT =CHARACTER = "OT ? 

95 013602 001413 BEQ SETER “IF IT IS THEN SET APPROPRIATE FLAG (ERWORD) 

95 0136046 052737 010000 006500 BIS WB1T12,ERWORD — ;NONE OF THE USUAL CHARACTERS FOUND 

96 : ASYNCHRONOUSL Y . UNEXPECTED CHARACTER 

97 : RECEIVED INDICATED IN ERWOR 

98 013612 000740 BR BETA “TRY AGAIN TO SEND CHARACTER 

100 013614 012737 000001 006512 EXETS: MOV #1 ,FLTRDY s INDICATE FAILED TO FIND TRANSMIT READY. 

101 013622 012737. 177777 002206 MOV #-1, GREASE TENABLE GREASED EXITS FROM TESTS 

10¢ 013630 000405 BR EXITS “FAIL TO FIND TRDY 

104 013632 052737 100000 006500 SETER: BIS #B1T15, ERWORD :CAN OR EOT TYPE ERROR 

105 013640 004737 015106 JSR PC, STSER “SET UP ERWORD. 

107 013644 012605 EXITS: MOV (SP)+,R5 

108 013646 012604 MOV (SP) +<R4 RESTORE 





GLOBAL SUBROUTINES SECTION 


09 013650 012603 
013652 012602 


1 
11 
11 
13 013654 000207 
11 
11 
4 
11 
11 
1 


COONAUE WHO 


RTS 


(SP)+,R3 
(SP)+,R2 


PC 


REGISTERS — 


SEQ 62 





L 5 
SEQ 63 
GLOBAL SUBROUTINES SECTION 

1 

2 

? 

> “FUNCTIONAL DESCRIPTION 

f : GLOBAL PROCEDURE WAITXN: 

9 : THIS PROCEDURE WAITS FOR THE ‘‘XON'’ CHARACTER TO BE SENT BY THE 

10 : PRINTER. if THE CHARACTER IS NOT SENT WITHIN A REASONABLE AMOUNT 
"i : OF TIME, THEN A TIME = OUT WARNING IS GIVEN. 

13 [penn nena n-ne nnn nnn nnn nnn nnn nn nnn nn nnn nnn nnn nnn nnn 
14 : 

7 : INPUTS 

7 : NO INPUTS FROM CALLING ROUTINE. 

19 SQUTPUTS 

21 : IF A TIME-OUT OCCURS DUE TO TOO LONG A WAIT FOR THE XON CHARACTER 
22 : TO BE RECEIVED, THE ERROR FLAG-WORD IS CHANGED. 

24 = SUBORDINATE ROUTINES 
26 : DELAYS - THIS ROUTINE WILL CAUSE A 100 USEC DELAY 

27 : WITH R5 SET TO 1. 

°9 ‘FUNCTIONAL SIDE EFFECTS 

51 : R1 AND R2 ARE PRESERVED. NO SIDE EFFECTS. 

33 : 

34 

35 

%6 

37 

39 013656 010146 WAITXN: MOV R1,-(SP) :SAVE USED REGISTERS 

40 013660 010446 MOV R4.-(SP) : 

42 013662 005037 006510 CLR OUTSDC sOUTSIDE LOOP COUNTER. 1 MINUTE WAIT 

45 013666 005001 OUTSDL: CLR RI “INSIDE LOOP COUNTER. 

45 013670 012705 004000 MOV #4000,R5 :ARGUMENT FOR THE DELAY 

46 013674 004737 015336 LOOPXN: JSR PC,DELAYS ‘ABOUT 1 MSEC 

47 013700 BREAK TENABLE “C INTERRUPTION FROM CONSOLE. 

700 104422 TRAP C$BRK 

48 013702 032777 000200 173366 BIT #BIT7,aRCSR :RECEIVER READY? =O IF NOT READY. 

49 013710 001453 BEQ LOOPCK ‘NOT READY? THEN CHECK AGAIN 

50 013712 004737 014126 JSR PC,GETCHR ‘GET THE BYTE 

51 013716 120437 006520 CMPB —sR4.XON TIS IT = “XON' ? 

3@ 013722 001476 BEQ EX{TON :]F = XON OK... EXIT ROUTINE WITH NO ERROR 
54 013724 SENDX: BREAK sENABLE USER INTERRUPTS WITH “C 

013726 104422 TRAP  C$BRk 

55 013726 113702 006521 MOVB _— ESCAPE ,R2 :SEND REQUEST STATUS TO PRINTER 


56 013732 
57 013736 
58 013742 
59 


60 013746 


72 014016 
74 014020 


86 014064 


014114 


90 
91 014120 
92 014122 


94 014124 


100701 
052737 
052737 


012746 


012604 
012601 


000207 


GLOBAL SUBROUTINES SECTION 


013402 
006532 
013402 


014126 
006521 


014126 
014126 


014126 
014126 
006532 


000001 


177777 
010000 
014120 


077000 


006510 
006510 


010000 
100000 


012526 
000001 


000004 


002206 
006500 


000015 


006500 
006500 


ELSEX: 


LOOPCK: 


EXI TON: 


BIS 
BIS 


PRINTX 


MOV 
MOV 


RTS 


PC,SENCHR 
SCO,R2 

PC,SENCHR 
PC,GETCHR 
R4, ESCAPE 
ELSEX 

PC,GETCHR 
PC,GETCHR 
R4,RO 

PC,GETCHR 
PC,GETCHR 


LOOPCK 


#-1,GREASE 
#B1T12,ERWORD 


EXITON 


R1 
R1,4077000 


LOOPXN 
OUTSDC 


OUTSDC ,#15 


OUTSDL 


#B1T12,ERWORD 
#B1T15,ERWORD 


#T IMOM 


(SP) +,R4 
(SP)+,R1 


PC 


4 Se SENT 
Ay SENT 


3;GET ESCAPE FROM PRINTER. 
CHECK FOR VALID CHARACTER (ESCAPE ONLY) 
i IF NO ESCAPE THEN OTHER ERROR. 


GET N2 
Ger. = (CONTAINS PAUSE STATUS) 


“— 
> CONFIRM THAT THE LAST BYTE WAS A ‘0"' 
71F NOT PROPER, INDICATE AN ERROR. 
SWAS THE PAUSE SWITCH SET? 
[REPEAT PROCESS IF BIT IS SET. 
;SWITCH NO LONGER PRESSED. LOOK FOR XON. 


UNEXPECTED CHARACTER RECEIVED. ENABLE 
:"'GREASED’’ EXIT FROM CALLING ROUTINE. 
SEXIT ROUTINE. 


UPDATE LOOP COUNTER 
LOOPED ENOUGH TIMES YET? 5 SEC CHECK 
CONTINUE TO LOOP UNTIL 5000 EXCEEDED. 


OUTSIDE LOOP COUNT 
313 LOOPS YET? 
NO? THEN START UP AGAIN 


NOT XON.... ERROR UCRB 
zAN ERROR IS DETECTED AND INDICATED 


PRINT TIMEOUT MESSAGE 


MOV #TIMOM,~(SP) 
MOV #1,-(SP) 

MOV SP RO 

TRAP CSPNTX 

ADD #4 SP 


RESTORE THE REGISTERS 


SEQ 64 


SWHPOUDNAUEWIN- 


— os a I 


hononw-- aa 
M-—OOONA) 


34 014126 
35 014130 
36 014132 


38 014134 
39 014140 
40 


41 014142 
42 014150 
43 


44 014152 
45 014156 


46 

47 014162 
014162 

48 

49 014164 

50 

51 014166 

52 014172 

53 


54 014174 
55 014200 
56 014206 


010146 
010246 
010546 


005037 
005001 


032777 
001042 


012705 
004737 


104422 
005201 
020127 
100763 
005237 


023727 
001010 


GLOBAL SUBROUTINES SECTION 


006506 


000200 173126 


000001 
015336 


002400 


006506 
006506 000024 


FUNCTIONAL DESCRIPTION 
GLOBAL PROCEDURE GETCHR 
THIS PROCEDURE WILL GET A CHARACTER AND WILL_INDICATE A TIME-OUT 


ERROR IF IT FAILS TOO RECEIVE A CHARACTER WITHIN A REASONABLE TIME. 


OUTPUTS 


THE RECEIVER BUFFER IS READ AND PLACED IN R4. 
= SUBORDINATE ROUTINES 
- GET A 100 USEC DELAY 
“FUNCTIONAL SIDE EFFECTS 


: DELAYS 


3 THE ERROR FLAG-WORD MAY CHANGE IF AN ERROR IS FOUND. 
GETCHR: MOV R1,~-(SP) ;SAYE REGISTERS 
MOV R2,-(SP) r 
MOV R5,~-(SP) 
CLR OUTCTR ;OUTER LOOP COUNTER, 
OUTRLP: CLR R1 ; TIMING INNER LOOP COUNTER. 
LOOPG: BIT #B1T07,aRCSR RCSR-7 SET? RECEIVER READY? RDONE? 
BNE SENDR TIF YES..... GET THE CHARACTER OUT OF THE SUFFER 
AND INTO R4. 
MOV #1,R5 SHORT DELAY... 100 USEC 
JSR PC,DELAYS [WAIT AROUND FOR A WHILE 
BREAK ;ENABLE INTERRUPT FROM “C ON CONSOLE. 
TRAP C$BRK 
INC R1 ;LOOP COUNTER UPDATE. 
NOPRTM: CMP R1,42400 ;LOOPED LONG ENOUGH TO SET TIME-OUT INDICATOR? 
BMI LOOPG LOOP UNTIL 24400 OR RECEIVER IS SET. 
INC OUTCTR UPDATE OUTSIDE COUNTER, 
CMP OUTCTR,#20. SHAVE WE BEEN WAITING LONG? 
BNE CONTLO TSKIP PRINT. ONCE PER LONG WAIT ONLY. 


SEQ 65 


p——---- --—-— ---- -—- 


GLOBAL SUBROUTINES SECTION 


57 014210 
0 0 


58 
59 0142 
60 0142 
61 


62 014260 
05 0142466 


64 
65 014254 
66 


68 01425€ 
9 


70 614262 
71 614266 


73 014270 
74 014274 


76 014276 
7 

79 014304 
80 014306 
e 014310 


2 
85 014312 
84 


012746 
012746 
010600 
104’ * 
O6< 


023727 
100740 


052737 
052737 


000413 


017704 


1204 37 
001403 


120437 
001003 


052737 
012605 
012602 
012601 


000207 


000132 


006500 
006500 


CONTLO: 


SENDR: 


ERSETT: 


EXITE: 


PRINTX 


Wulf C 


OUTCTR, #90. 
OUTRLP 


#81113, ERWORD 
#81715, ERWORD 


EXITE 


@RBUF ,R4 


R4,CAN 
ERSETT 


R4,EOT 
EXITE 


#817115, ERWORD 
(SP)+,R5 
(SP)+,R2 
“SP)+,R1 

PC 


SPRINT WAITING FOR A CHARACTER FROM PRINTER. 


MOV MWFC,=(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP CSPNTX 
ADD #4,SP 


340 LOCPS MAXIMUM PERMITTED. 
;NOT DONE YET? CONTINUE OUTER LOOP. 


;ECNRB ERROR 
ERROR INDICATOR 


GIVE UP an tn THIS RECEPTION 
: AN ERROR WILL BE INDICATED. 


PUT CHARACTER RECEIVED INTO R4& 


31S THE CHARACTER A ‘'CAN’' FROM THE PRINTER? 
THEN SET BIT15 IN ERWORD AND EXIT. 


31S THE CHARACTER AN ‘EOT'' FROM THE PRINTER? 
7IF NOT THEN EXIT WITH CHARACTER. 


WE HAVE a ERROR CONDITION. EITHER FATAL 
: R NON-FATAL. (CAN OR EOT) 


RESTORE REGISTERS 


SEQ 66 


| 
| 
| 


wee ee OM ew oS es Ss SS 
OOON AVIS WOOO NOAUE WI - 


Monon 
WN—O 


44 014326 


46 014330 
47 014334 


54 014354 


56 014356 
57 014362 


010246 
010346 


010102 
043702 
000302 


052702 
110237 


010102 


052702 
110237 


GLOBAL SUBROUTINES SECTION 


006430 


000040 
010046 


006432 


000040 
010047 


“FUNCTIONAL DESCRIPTION 


GLOBAL PROCEDURE CONVRT: 


THIS PROCEDURE CONVERTS A NUMBER CONTAINED IN REGISTER R1 INTO 

THREE ASCIi BYTES WHICH ARE MNEMONIC ARGUMENTS ACCEPTABLE TO THE 
LQP CONTROLLER. 
MNEB1 (MOST SIGNIFICANT BYTE), MNEB2, AND MNEB3 (LEAST SIGNIFICANT 


BYTE). 


THE THREE BYTES ARE CONTAINED_IN THE LOCATIONS: 


! 
i] 
' 
' 
a 
' 
i 
' 
' 
1 
t 
4 
t 
‘ 
' 
a 
' 
' 
t 
t 
1 
f) 
' 
t 
' 
' 
( 
‘ 
' 
i 
f 
) 
‘ 
£ 
i 
' 
' 
' 
( 
' 
t 
i 
i 
‘ 
' 
‘ 
' 
‘ 
t 
t 
{ 
i 
4 
a 
i 
i 
i 
t 
: 
i 
' 
' 
' 
i 
t 
' 
1 
J 
i] 
| 
f 
' 


INPUTS 


OUTPUTS 


CONVRT: 


R1 


NONE 


- CONTAINS THE NUMBER TO BE CONVERTED INTO MNEMONIC FORM 


“ HIGH ORDER BYTE MNEMONIC FROM VALUE IN R1. 


MIDDLE BYTE MNEMONIC FROM VALUE IN R1. 


- LOW ORDER BYTE MNEMONIC FROM VALUE IN R1. 


SUBORDINATE ROUTINES 


FUNCTIONAL SIDE EFFECTS 
REGISTERS ARE PRESERVED. 


006202 R2 
006202 
55 


R2,-(SP) 
R3,-(SP) 


R1,R2 
TMPLT1,R2 
Re 


#BITS,R2 
Re ,MNEB1 


R1,R2 
TMPLT2,R2 


#BITS,R2 
R2,MNEB2 


. 
. 
. 
e 
. 
od 
. 
e 
. 
° 
7 
e 
. 
. 


SAVE REGISTERS 


GET COPY OF NUMBER TO BE CONVERTED. 
MASK IN BITS 8 =~ 11. 
RIGHT JUSTIFY MASKED BITS 


;CONVERT TO THE ASCII VALUE 
STORE RESULT IN GLOBAL VARIABLE 


COPY OF ORIGINAL NUMBER 
MASK BITS 4 - 7. 


; RIGHT JUSTIFY 
; BITS 


INTO_BIT POSITIONS 
0- 3. 


CONVERT TO THE ASCII VALUE 
STORE RESULT IN GLOBAL VARIABLE 


SEG 67 


SEQ 68 


2 R1,R2 GET ORIGINAL NUMBER 
60 014370 043702 006434 BIC TMPLT3,R2 iMASK OUT LEFT 12 BITS. 
61 014374 052702 000040 BIS #BIT5,R2 :SET BIT 5. CONVERT TO ASCII VALUE 
62 014400 110237 010050 MOVB R2,MNEB3 s;MOVE TO GLOBAL VARIABLE 


63 
64 014404 012603 MOV (SP)+,R3 RESTORE REGISTERS 
65 014406 012602 MOV (SP)+,R2 3 


66 
74 014410 000207 RTS PC 


SSS 


SEQ 69 
GLOBAL SUBROUTINES SECTION 
’ 
: 
é SFUNCTIONAL DESCRIPTION 
6 : GLOBAL PROCEDURE INITCD 
g : THIS ROUTINE IS USED TO INITIALIZE EACH TEST. THIS PROCEDURE 
9 : WILL GUARANTEE THAT THE PRINTER BEING TESTED WILL BE IN A 
10 : TESTABLE CONDITION (IF THE INITCD ROUTINE SUCCEEDS IN PERFORMING 
11 : IN ITS ENTIRETY). THIS CODE WILL SET UP THE INTERFACE DEVICE 
12 : USED TO COMMUNICATE WITH THE PRINTER. THE ROUTINE WILL RESET THE 
13 : PRINTER TO ITS DEFAULT START-UP CONDITION, IT WILL SET THE RIBBON 
14 ; TO ITS DOWN POSITION, IT WILL SET THE HIT COUNT TO ONE HIT PER 
15 : CHARACTER PRINTED, AND IT WILL SET THE UNDERLINE MODE OPTION TO 
16 ; “NO-UNDERLINE'’. FINALLY, THIS ROUTINE WILL SENL A CARRIAGE RETURN 
17 : AND FOUR LINEFEEDS TO THE PRINTER TO AID IN THE READABILITY OF THE 
18 : PRINT PATTERN. 
19 2 
20 ; 
21 {OSS SS RSS S SSSR SESS SESS ESSE SSS SSS SSS SSS SSS SSS 
22 3 
23 > INPUTS 
24 : 
25 : NONE 
26 : 
27 ; OUTPUTS 
28 : 
. : NONE 
3 } SUBORDINATE ROUT INES 
33 : xM]IT = SEND SEQUENCES TO THE PRINTER 
34 : STATS. = CHECK FOR ERRORS. ENTRYPOINT IN STSERR. 
$5 : GETCHR = GET A CHARACTER FROM THE PRINTER 
36 ; STSERR = ADJUST THE STATUS WORD VIA PRINTER QUERY 
38 [FUNCTIONAL SIDE EFFECTS 
40 : 1) PRINTER STATUS IS DETERMINED. 
41 : 2) RIBBON POSITION IS se! DOWN. 
42 3 3) HIT COUNT IS SET TO 1 
43 : i) NO-UNDERLINE MODE IS SET 
44 : 5) PRINT CARRIAGE RETURN AND FOUR LINEFEEDS. 
46 : 
47 
is 
50 014412 005037 007314 INITCD: CLR PGMCTR :DOES NOT YET POINT TO PC OF ERROR 
51 014416 010146 MOV R1,=-(SP) sSAVE REGISTERS 
52 014420 010246 MOV R2,-(S5P) : 
53 014422 010346 MOV R3,-(SP) : 
34 014426 0104646 MOV R4.=(SP) : 
56 014426 012701 002214 RESETC: MOV #DUMMYS, R1 sFIX INTERFACE TO ACCEPT PRINTER RESET. 
57 014432 012702 000019 MOV #8. Re ; 


GLOBAL SUBROUTINES SECTION” 


58 
59 


014436 
014440 


014444 


014450 
014454 
014460 
014462 


014466 
014472 
014474 
014476 


014500 
014504 
014510 


014512 
014516 
014522 


014524 
014530 
014534 


014536 
014542 
014546 
014552 


90 014554 


014560 
014564 


94 014566 


014572 


96 014576 


014614 
014622 


014626 


08 014652 


014656 


005003 
004737 
005037 
012701 


004737 
012700 


001440 


004737 
120437 
001370 


004737 
120427 
001026 


004737 
120427 
001021 


004737 
120437 
001413 


052737 


€12632 
006500 


002224 
000002 


012632 
000020 


014126 
006521 


014126 
000040 


014126 
000040 


014126 
000001 
000040 


014126 
006532 


014126 
006520 


010000 
015106 


000001 
000040 
002240 
000003 
012632 


000001 


006500 
006500 
006500 


002240 


002257 


LOUEF : 


INIERR: 


SETUPI: 


R3 
PC,XMIT 
ERwWORD 
MRESET,R1 
#2,R2 


e 


R 
PC,XMIT 
#16. ,R0 
RO 


RO 
INIERR 


PC,GETCHR 
R4, ESCAPE 
LOUEF 


PC,.GETCHR 
R4,A4ZERO 
INIERR 


PC,GETCHR 
R4 ,AZERO 
INIERR 


PC,GETCHR 
#B1TO,R4 
R4 AZERO ° 
INIERR 


PC,GETCHR 
R4,SCO 

INIERR 
PC,GETCHR 
R4,XON 

SETUP I 
#B1T12,ERWORD 
#81113, ERWORD 


#B1T15,ERWORD 
PC,STSERR 


#1,R0 
#ZERO,RIBPOS(RO) 
ARIBPOS ,R1 


R 
PC,XMIT 


#1,RO 
#ZERO,STHTCT(RO) ; 
#STHTCT,R1 

#3,R 


R3 


*SEND DUMMY SEQUENCE 
:ASSUME THAT NO ERRORS HAVE YET OCCURED. 


; TRANSMIT gyi y RESET SEQUENCE (ADDRESS) 
$2 ARGUMENT LIS 

:NO BIDIRECTIONAL PRINTING NECESSARY 

SEND SEQUENCE TO PRINTER 


SIXTEEN TRIES ARE GIVEN TO FIND THE ESC CHAR 
[COUNT DOWN OF LOOPS TO FIND ESCAPE 

[MAX TRIES USED TO FIND ESCAPE? 

;1F SO AN ERROR MUST BE REPORTED. 


READ ‘“‘ESC’* CHR FROM RBUF 
;CHECK FOR CORRECT CHARACTER 
31F NO ESCAPE FOUND THEN TRY AGAIN 


READ STATUS CHR. SHOULD BE SPACE CHARACTER. 
;SHOULD BE NO ERRORS - RIGHT FOUR BITS = 0000 
:IF RIGHT FOUR BITS NONZERO, INDICATE ERROR. 


READ 2ND STATUS NIBBLE. 
RIGHT FOUR BITS SHOU! D BE 0000 
z1F NONZERO, INDICATE ERROR AND CONTINUE 


READ 3RD STATUS NIBBLE. 

CLEAR THE SHEET FEEDER PRESENT BIT IF SET. 
31S STATUS NIBBLE = 0000 ? 

:1F NOT, INDICATE ERROR AND CONTINUE 


READ (HOPEFULLY) ‘'0'* FROM RBUF 
CONFIRM THE CHARACTER IS A ‘0°’. 
IF NOT = ‘‘0'', THEN INDICATE ERROR, CONTINUE 


cA CHARACTER IS EXPECTED FROM THE PRINTER 
7''KON’' IS THE EXPECTED CHARACTER 
TIF YES, THEN SET UP THE PRINTER PARAMETERS 


:IF NO, THEN INDICATE ERRORS: UCRB 

THEN INDICATE ERRORS: ECNRB 

THEN INDICATE ERRORS: ERROR FOUND BIT 
= CHECK FOR MORE ERRORS 


;RIBBON POSITION DOWN 
ADDRESS OF ARGUMENT LIST 
 5CHARACTERS IN ARGUMENT LIST 
[NO PRINTING 

:SEND TO PRINTER 


SET HIT COUNT 70 1 HIT PER CHARACTER 
ADDRESS OF ARGUMENT LIST 

THREE ARGUMENTS IN THE é 
ZNO PRINTING 


SEQ 70 


GLOBAL SUBROUTINES SECTION 


mommy 3 
ON EWN OO CONAN 


154 


NANA 
ODWNAW 


— —s 
VIS 


— bet we SI I 
WNN EERE RERKRKS 
M—OOWNA NFWNH-O 


5 014702 


014726 


014732 
014736 
014742 
014744 


014750 
014754 
014760 
014762 
014766 
014772 


014776 


015002 


015006 
015012 
015016 
015022 
015024 


015026 


004737 
112760 


005037 


005037 


012705 


012601 


000207 


012632 
000040 
002266 
0 
012632 


002313 
000002 


012632 


002314 
000001 


012632 
012632 
012632 


00€502 


006504 


007000 
007000 
015336 


002266 


LODELY: 


PC,XMIT 


#ZERO,STULMD(RO) 
tea 


’ 


R 
PC,XMIT 


ACR,R1 
#2,R2 
R3 


PC,XMIT 


#LF RI 
#1,R2 
R3 
PC,XMIT 
PC,XMIT 
PC,XMIT 


CRNTPR- 


DIRCTN 


#7000,R5 
#7000,R4 
PC DELAYS 
RS 


LODELY 
(SP)+,R4: 
(SP)+,R3 


(SP)+,R2 
(SP)+,R1 


PC 


SEND TO PRINTER 


SET UNDERLINE MODE 
sADDRESS OF ARG LIST 
; THREE ARGUMENTS 

NO PRINTING 

;SEND TO PRINTER 


: ADDRESS OF CRLF TO BE PRINTED 
;2 CHARACTERS TO BE PRINTED 
3NO BIDIRECTIONAL PRINTING 
SEND TO PRINTER 


ADDRESS OF LINEFEED 

PRINT THE SINGLE CHARACTER 
[WITHOUT BIDIRECTIONAL PRINTING 
:SEND TO PRINTER 


AGAIN... 
ZAND AGAIN... 


;CLEAR CURRENT COUNT WHICH IS USED IN 
[BIDIRECTIONAL PRINTING TO KEEP TRACK OF 

; THE NUMBER OF CHARACTERS PRINTED CURRENTLY 
IN THE CURRENT DIRECTION. 

INDICATOR THAT PRINTER IS PRINTING IN THE 
SFORWARD DIRECTION. (O=FORWARD, 1=REVERSE) 
;THIS IS TRUE AT THIS POINT BECAUSE THIS 
SROUTINE RE-INITIALIZES THE PRINTER. 


SET UP FOR A DELAY (ARG FOR DELAYS ROUTINE) 
;LOOP COUNTER 

;CAUSE A SHORT DELAY 

[LOOP COUNTER ADJUSTMENT 

SREPEAT UNTIL SUFFICIENT DELAY CAUSED. 


RESTORE nae 


. 
e 


REGISTERS 


SEQ 71 


GLOBAL SUBROUTINES SECTION 


ODO OW NOME WD $O OW NOAM RW - 


M-4.82 2S <b = ond od 


21 
22 
3 


38 015040 
40 075042 


45 015046 
“6 015052 


48 015056 
49 015060 


51 015062 
52 015066 
55 015072 
56 

57 015076 


000240 
012701 


063701 
063701 


006101 
006101 


060137 
010137 
042701 
022701 


i 


000001 


SEQ 72 


FUNCT 1ONAL DESCRIPTION 


GLOBAL PROCEDURE RANDOM 


WIL BE HELD IN REGISTER: R1. 


THE RANDOM NUMBER: RANGE 0 = 99 
THE ALGORITHM FOR THIS RANDOM 


NUMBER GENERATOR WAS SUPPLIED BY THE LQP DIAGNOSTIC ON THE 
PDP=8 WRITTEN BY BILLY CRAFT. 


: RANDOM NUMBER GENERATOR. 


OUTPUTS 
R1 


RANDOM: NOP 
TRYAGN: MOV 


ADD 
ADD 


ROL 
ROL 


ADD 
MOV 
BIC 
CMP 


= NOT EXPLICITLY PASSED BY SOFTWARE. 
~ SAME AS SEED1. 


FIRST SEED 
USED FOR RANDOM NUMBER GENERATION. 


- WILL CONTAIN THE RANDOM NUMBER (0-99) 


: SUBORDINATE ROUTINES 
NONE 
: FUNCTIONAL SIDE EFFECTS 


SEED1 AND SEED2 WILL BOTH BE CHANGED SO THAT THE NEXT RANDOM NUMBER 
WILL BE DIFFERENT FROM THE ONE JUST COMPUTED. 


CALLING SEQUENCE 


NO ptner ™ PARAMETERS ARE PASSED. 
PC RANDOM 


#1,R1 


R1,SEED1 
R1,SEED2 


#177600,R1 
#99, ,R) 


;RANDOM NUMBER GENERATOR 


ANDOM NUMBER IS GENERATED FROM 
TWO SEEDS: SEED1 AND SEED2. IF DESIRED, 
“THESE SEEDS MAY BE CHANGED USING A DYNAMIC 
[DEBUGGER OR RE-ASSEMBLY OF THE PROGRAM WITH 
:NEW SEED VALUES. (NOT RECCOMENDED) 
GET THE SEED1 VALUE (SLIGHTLY ALTERRED) 
:ADD THE SECOND SEED VALUE 


;ROTATE CONTENTS SO THAT VALUE IS LOST 
;ROTATe AGAIN. 


sNOW A NEW SEED VALUE 
;AND A NEW SECOND SEED VALUE 
;BOTH FAIRLY UNRELATED TO THE ORIGINAL SEEDS 


VALUE IS CHANGED AGAIN 


MASK OUT ag A LEFT nine BIT 
7; THE NUMBER NOW HAS A POSS IBLE RANGE OF Q-127 
31S THE NUMBER 0-99 ? 


coc 


_ GLOBAL SUBROUTINES SECTION 


4 015102 100757 
60 015104 000207 


BM] TRYAGN 
RTS PC 


jNO? WELL TRY AGAIN. RANGE MUST BE 0-99. 


SEQ 73 


DWNAOUEWI 


WM oS SM tt Se 
OVOWYAMEWN-2-O0 


113702 
004737 
012700 
116002 
004737 
010446 
010346 
004737 


120437 
001057 


004737 
043704 


GLOBAL SUBROUTINES SECTION 


002210 


002210 


“FUNCTIONAL DESCRIPTION 


GLOBAL PROCEDURE STSERR: 


THIS ROUTINE DOES TWO THINGS: 
SETS UP THE ERROR FLAG - WORD 


IT REQUESTS STATUS FROM THE PRINTER AND 
(ERWORD). THE ENTRY POINT -STATS= MAY 


BE USED TO SKIP THE REQUEST STATUS CODE. 


s INPUTS 


“OUTPUTS 


Be Be Be Be Be Be Se Be Be Be Be Se Be Fe Be Be Fe Be Be Be Be te 


ERWORD 


ERWORD 
SUBORDINATE ROUTINES 


SENCHR 
GETCHR 


FUNCTIONAL SIDE EFFECTS 


- SOME BITS MAY ALREADY BE SET, 


INDICATING ERRORS ALREADY 


- THIS GLOBAL SYMBOL WILL INDICATE ALL COMPUTABLE ERRORS. 


- USED TO TRANSMIT CHARACTERS TO THE PRINTER. 
~ USED TO RECEIVE CHARACTERS FROM THE PRINTER. 


THE GLOBAL SYMBOL ERWORD WILL REFLECT THE STATUS OF THE PRINTER. 


REGISTERS ARE PRESERVED. 
CALLING SEQUENCE 


NO wae * PARAME TERS 9 PASSED TO THE ROUTINE. 
PC, STSERR NORMA 


JSR PC,STATS 


STSERR: MOVB 


STATS: 


STSRES ,R2 
PC, SENCHR 


#1,R0 
STSRES (RO) ,R2 


PC,SENCHR 


R4,~(SP) 
R3,-\SP) 


PC,GETCHR 
R4,STATUS 
PALPHA 


PC,GETCHR 
TMPLT3,R4 


L ENTRY 

° STATUS REQUESTED FROM PRINTER 
° 2ND ENTRY POINT. THE STATUS 
* IS CHECKED AS IS. 


SEND “ESC O° TO THE PRINER. 


*REQUEST STATUS FROM PRINTER. 
:PUSH REGISTERS 


GET A CHARACTER FROM THE PRINTER. 


;THE CHARACTER IN R4 SHOULD BE AN ESC CHARACTER 
TEXPECTED CHAR NOT RECVD, UNEXPECTED CHAR RCVD. 


;GET N35 FROM sy thm FATAL ERRORS INDICATED. 
ICLEAR LEFT 12 BIT 


SEQ 74 


SEQ 75 

GLOBAL SUBROUTINES SECTION 

58 015160 000304 SWAB R4 ;PUT BITS IN PROPER POSITION FOR ERWORD 

2 015162 050437 606500 BIS R4 ,ERWORD ZSET THE ERROR BITS APPROPRIATE IN ERWORD. 

61 015166 004737 014126 JSR PC ,GETCHR GET N2 FROM PRINTER. NON-FATAL ERRORS FRM PRTR 

62 015172 043704 006434 BIC TMPLT3,R4 pn ap THE LEFT 12 BITS. (NOT WANTED) 

63 015176 006304 ASL R4 SHIFT 

64 015200 006304 ASL R4 : LEFT 

65 015202 006304 ASL R4 3 

66 015204 006304 ASL R4 ; POSITIONS. 

67 015206 050437 006500 BIS R4,ERWORD ;AND SET THE APPROPRIATE BITS IN ERWORD. 

69 015212 004737 014126 JSR PC,GETCHR 3;GET ANOOTHER CHARACTER. N1. PRINTER CONDITION 

70 015216 043704 006434 BIC TMPLT3,R4 ;CLEAR THE 12 LEFT UNWANTED BITS. 

71 015222 042704 000001 BIC #BITO,R4 :SHEET FEEDER PRESENT NOT A GENERAL ERROR. 

72 015226 042704 000004 PIC #BIT2,R4 SNOT USED BY PRINTER 

73015232 042704 000010 BIC #BIT3,R4 [NOT USED BY PRINTER 

me 015236 050437 006500 BIS R4,ERWORD ;SET APPROPRIATE BITS IN ERWORD. 

a} 015242 042737 046400 006500 BIC #46400,ERWORD ;CLEAR BITS 14,11,10,8 (UNUSED BITS IN ERWORD) 

78 015250 005737 006500 TST ERWORD 71S THE ERWORD = 0 ? 

79 015254 001403 BEQ CRCLX :1F IT IS CONTINUE... 

80 015256 053737 100000 006500 BIS BIT15,ERWORD IF IT ISN'T... INDICATE AN ERROR (GENERAL) 

44 : BY SETTING BIT 15 IN THE ERROR WORD. 

83 015264 004737 014126 CRCLX: JSR PC,GETCHR HOPE TO GET A ‘0°’ 

84 015270 123704 006532 CMPB SCO,R4 31S I’ THE EXPECTED *0"* ? 

85 015274 001415 BEQ EXITSR y1F EQUAL TO EXPECTED CHAR (°'0""), THEN DONE. 

87 015276 052737 020000 006500 BIS #ECNRB,ERWORD ;SEi ECNRB (‘'0"’ NOT FOUND.) 

4 015304 000403 BR SET15 ZSET ERROR INDICATOR AND EXIT. 


90 015306 052737 020000 006500 PALPHA: BIS #ECNRB,ERWORD ;EXPECTED CHARACTER NOT RECEIVED INDICATOR 
92 015314 052737 100000 006500 SET15: BIS #BIT15,ERWORD ;INDICATE THAT AN ERROR HAS OCCURRED. 


ey 015322 012737 177777 002206 MOV #-1, GREASE :ENABLE A ""GREASED'' EXIT FROM THE CALLING 
95 0153390 012603 EXITSR: MOV (SP) +,R3 SRESTORE REGISTERS. 

ba 015332 012604 MOV (SP)+,R4 : 

= 015334 000207 RTS PC 

00 

101 

102 

103 


SOODNAMEWR HF OOWNAUE WH 


ft -8 Ss SS SS 


21 
2 


rs 015336 
ri 015344 


3 

44 015350 
45 

46 015352 
47 015354 
48 
m4 015356 


GLOBAL SUBROUTINES SECTION 


012737 000025 010054 
005337 010054 
100375 


005305 
100370 


000207 


*FUNCTIONAL DESCRIPTION 


GLOBAL PROCEDURE DELAYS 


THIS PROCEDURE ACCEPTS A NUMBER IN REGISTER R5 AND CAUSES A DELAY OF 
100 MICROSECONDS X R5. THE VALUE AFTER CALLING OF THIS ROUTINE IN R5 


WILL BE ZERO. 


* CONTAINS THE NUMBER OF 100 USEC INCREMENTS DESIRED. 


SUBORDINATE ROUTINES 


Be Be Be Be Be Be Se Se Be Be Be 


DELAYS: MOV 
INLOOP: DEC 
BPL 


DEC 
BPL 


RTS 


NONE 
FUNCTIONAL SIDE EFFECTS 
THE DELAY IS AT LEAST 0.103MSEC X R5 
CALLING SEQUENCE 
NO PARAMETERS. 
JSR 


S 


#21. ,DELCNT 
DEL CNT 
INLOOP 


R5 
DELAYS 
PC 





PC,DELAYS 


32.91USEC. - INNER LOOP INITIALIZATION 


32. 3585USEC. = 
-TOTAL 4.77USEC. PER LOOP 


72.385USEC. - 

i 0.103MSEC TO HERE 
:STARTS WITH # OF .1 MSEC INCREMENTS. 

IF R1 WERE 10,000 THEN TIME DELAY IS 1 SECOND. 


SEQ 76 


eae sere ee ee : 
M 6 <4. 
SEQ 77 


wn 
. 


an 


| N 6 
| SEQ 78 
| GLOBAL SUBROUTINES SECTION 
} } 
3 : REMAEAMAARARREARAAAEAAAAMHAARAARARRARARARARARAABARARRRRARAARARARAR ARR RARER 
fs ; 
5 PUMA R AAA AAR e Ae ERROR DECODE AND PRINT SUBROUTINE ***texxannannaennnnans ae 
. : 
7 ¢ SSeeesessesssssssssssrssssssssssssssssssssssssssSsSSSSSSSSSSSSSSSSSSSSSSSESSS= 
8 SFUNCTIONAL DESCRIPTION 
10 : THIS PROCEDURE ACCEPTS ERWORD (THE ERROR FLAG-WORD) AS A PARAMETER, AND 
11 : DECODES THE ERRORS? WHICH HAVE OCCURRED. THE ROUTINE WILL PRINT THE 
12 : ERROR MESSAGES ON THE CONSOLE TERMINAL. REGISTERS ARE PRESERVED. THE 
13 : GLOBAL VARIABLES ERRTYP, ERRNBR, ERRMSG AND ERRBLK ARE USED AS IF THEY 
14 : WERE LOCAL VARIABLES. IT IS ASSUMED THAT THESE VARIABLES ARE NOT USED 
15 ; ELSEWHERE IN THE MODULE. (THE FOUR GLOBAL VARIABLES WERE ASSIGNED BY 
16 : THE DIAGNOSTIC SUPERVISOR MACRO CALL ERRTBL.) 
1? Ecsainrenpienaanenacnanesacnesonensenrnsateenneseraimenseennieetant fantttets 
1p : INPUTS 
21 : ERWORD - REFLECTS THE ERROR STATUS OF THE PRINTER. 
22 : PGMCTR = PROGRAM COUNTER AT TIME OF CALL WHEN THE ERROR OCCURRED 
2 *QUTPUTS 
26 : ERWORD - CLEARED AFTER E)~“UTION OF ROUTINE 
28 S IMPLICIT OUTPUTS 
30 : THE ERROR TABLE IS CHANGED (ERRTBL). ERROR MESSAGES ARE PRINTED. 
; TO THE CONSOLE TERMINAL. 
33 SUBORDINATE ROUTINES 
35 : SUPERVISOR MACROS PRINTB,PRINTX,ERROR 
SCALLING SEQUENCE 
39 : JSR PC ERRORS 
40 : 
i ; 
43 015360 010346 ERRORS: MOV R3,-(SP) :PUSH REGISTERS 
44 015362 010446 MOV R4.-(SP) : 
46 015364 032737 100000 006500 BIT #B1T15,ERWORD ;1S ERROR FOUND BIT SET? 
47 015372 001473 BEQ EXTMCR ‘IF NOT SET, THEN EXIT THE SUBROUTINE. 
49 015374 162737 000004 007314 SUB #4 ,.PGMCTR :ACCOUNT FOR AUTOINC OF PC WHEN PUSHED BY JSR 
$1 015402 005003 CLR R3 :LOOP COUNTER AND TABLE POINTER. 
52 015404 032737 000001 006500 NxXTBIT: BIT #BITO.ERWORD  :1S THE RIGHT-MOST BIT SET? 
33 015412 001435 BEQ NXTERM ‘JF NOT SET, THEN CHECK THE NEXT BIT. 
55 : ERRDF CALL = ERRTYP:1 
56 015414 012737 000001 010072 Mov #1 ERRTYP 3 ZUSING THE ERRTBL SET UP BY THE 
57 015422 016337 007316 010076 MOV ERMSGB(R3) ,ERRMSG. ‘SUPERVISOR DEVICE FATAL MACRO CALL 


GLOBAL SUBROUTINES SECTION 


58 Hak 5 


59 


60 
61 


62 


015502 


015506 
015512 


015516 


015522 
015524 


015554 


015560 
015560 


015562 


015612 
015614 


86 
015616 
8 


:9.02 0000 99 090.00 


010337 
104460 


013746 
012746 
012746 
010600 


062703 
006237 


022703 


001330 
005037 


022737 
001010 


012746 


104444 


022737 
001010 


012746 


012604 
012603 


000207 


010074 


007314 
010230 
000002 


000006 
005246 


010302 
000002 


000006 


000002 
006500 
000034 


006500 
000001 


012333 
000001 


000004 


000001 


012333 
000001 


000004 


NXTERM: 


006512 


DCUPA: 


006512 EXTMCR: 


DDCUPA: 


MOV 
ERROR 


PRINTB 


PRINTX 


ADD 
ASR 


CMP 


BNE 
CLR 


CMP 
BNE 
PRINTB 


DOCLN 


CMP 
BNE 
FRINTB 


MOV 
MOV 


RTS 


R3,ERRNBR 


#PRTBMO,PGMCTR 


#PRTXMO, TRXADD 


#2,R3 
ERWORD 


#28. ,R3 


NXTBIT 
ERWORD 


#1,FLTRDY 
DCUPA 
#FXRDYM 


#1,FLTRDY 
DDCUPA 
#F XRDYM 


(SP)+,R4 
(SP)+,R3 


PC 


sERROR NUMBER BEING CHECKED. 
sMACRO CALL = WITH ABOVE PARMS 
TRAP CSERROR 
PRINT BASIC ERROR MESSAGE AND PC 
MOV PGMCTR,=(SP) 
MOV #PRTBMO, -(SP) 
MOV #2,-(SP) 
MOV SP,RO 
~_— C$PNTB 
ADD #6,SP 
z:PRINT EXTENDED ERROR MESSAGE AND 
MOV TRXADD , = (SP) 
MOV #PRTXMO,=(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP CSPNTX 
D #6,SP 


AD 
ADDRESS OF TRANSMITTED STRING AND 
; THE ERROR FLAG-WORG. 


sPOINT TO NEXT TABLE ENTRY. 
GET NEXT BIT INTO POSITION. 


: DONE WITH ALL THIS WHEN R3 !S 28 AND 13 
BITS HAVE BEEN CHECKED. 
“REPEAT UNTIL 13 LOOPS COMPLETE. 
SINCE WE ARE DONE, CLEAR THE ERROR FLAG-WORD. 


WAS THERE A FAILURE TO FIND TRANSMIT-READY? 


7;1F NOT, DO CLEANUP 
:PRINT TO CONSOLE: FAILED TO TRANSMIT TO PRNTR 


MOV #F XRDYM,=(SP) 
MOV #1,-(SP) 

MOV SP ,RO 

TRAP C$PNTB 

ADD #4 ,SP 

TRAP C$DCLN 

MOV #F XRDYM,=(SP) 
MOV #1,-(SP) 

MOV SP,RO 

TRAP C$PNTB 

ADD #4 ,SP 


RESTORE REGISTERS 


SEQ 79 


SEQ 80 


93 : Pd idluddudiduludedadedadadatadadadadabedalededabadahadadededadedadadadeladahadaded 


101 -TITLE MISCELLANEOUS SECTIONS 
102 -SBTTL REPORT CODING SECTION 


REPORT CODING SECTION 


we ee 7 
=> — — — 
SW 


1 
2 
3 p++ @ 
4 ; THE REPORT CODING SECTION CONTAINS THE 
: “PRINTS'’ CALLS THAT GENERATE STATISTICAL REPORTS. 
? € 
8 015620 BGNRPT 
. 015620 L$RPT:: 
0 015620 EXIT RPT 
015620 000167 ~WORD J$JMP 
015622 000000 «WORD 110002-2-. 
EVEN 
015624 ENDRPT 
015624 L10002: 
015624 104425 TRAP C$RPT 
.SBTTL PROTECTION TABLE 


SEQ 81 


| 
| 
| 
| 
| 


SEQ 82 
PROTECTION TABLE 
1 
7 
: : THIS TABLE IS USED BY THE RUNTIME SERVICES 
: ; TO PROTECT THE LOAD MEDIA. 
6 6 
7 015626 BGNPROT 
3 015626 L$PROT:: 
9 015626 °77777 -1 sOFFSET INTO P=TABLE FOR CSR ADDRESS 
10 015630 177777 -1 OFFSET INTO P=TABLE FOR MASSBUS ADDRESS 
i} 015632 177777 -1 OFFSET INTO P=TABLE FOR DRIVE NUMBER 
i 015634 ENDPROT 
1§ .SBITL INITIALIZE SECTION 


Cn a 


SEQ 83 


INITIALIZE SECTION 
1 
2 : ++ 
3 ; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
: ; AT THE BEGINNING OF EACH PASS. 
6 
7 015634 BGNINIT 
P 015634 LSINIT:: 
9 ; 
10 SR ee 
1 : 
i ; INITIALIZE ROUTINE. 
14 : THIS CODE WILL ACT ON THE HARDWARE P=TABLE CONTENTS TO SET UP THE 
i 3 SERIAL INTERFACE THAT THE PRINTER IS CONNECTED TO. 
4 ” cist i i a tai a att it ase eae aa 
19 0615634 INITLZ: READEF #EF.CONTINUE 
015634 012700 000036 MOV #EF .CONTINUE ,RO 
015640 104447. _ . TRAP CSREFG 
20 015642 BCOMPLETE JENDIN 
_ 015642 103425 BCS JENDIN 
22 015644 READEF #EF .NEW 
015644 012700 090035 MOV #EF .NEW,RO 
015650 104447 TRAP CSREFG 
23 015652 BNCOMPLETE NEXTU 
2 015652 103003 BCC NEXTU 
25 
26 015654 012737 777777 002202 MOV #-1,LOGUNIT 
27 015662 005237 902202 NEXTU: INC LOGUNIT 
28 015666 023737 002202 002012 CMP LOGUNIT,LSUNIT 
29 015674 001407 BEQ ABORT 
30 015676 GPHARD LOGUNIT,PLOC 
015676 013700 002202 MOV LOGUNIT,RO 
015702 104442 TRAP C$GPHRD 
015704 010037 02204 MOV RO,PLOC 
31 015710 BNCOMPLETE NEXTU 
015710 103364 BCC NEXTU 
32 015712 000403 BR STRTUP 
33 015714 ABORT: DOCLN 
015714 104444 TRAP C$DCLN 
bes 015716 000137 016700 JENDIN: JMP ENDIN 
36 015722 STRTUP: SETVEC #4,4UBTRAP,#PRI07 ZSET UP TRAP VECTOR FOR ILLEGAL ADDRESS 
015722 012746 000340 : MOV #PRIO7,=(SP) 
015726 012746 016704 MOV #UBTRAP ,~(SP) 
015732 012746 000004 MOV #4 ,-(SP) 
015736 012746 000003 MOV #3,-(SP) 
015742 104437 TRAP CSSVEC 
015744 062706 000010 ADD #10,SP 
37 ; TRAP... UNIBUS ERROR. 


38 
39 015750 005037 006500 CLR ERWORD ASSUME NO ERRORS 


INITIALIZE SECTION 


015754 


915770 
015774 


015776 


005037 
005037 
005037 
017701 
001137 
005037 
004737 
000137 
005037 


104444 
012700 
005300 
002407 


032777 
001403 


005777 
000767 
005037 


005037 
012701 


010056 
606512 
002206 


164210 


010056 
017144 
016570 
010056 
016714 
006500 
010056 


012141 
000001 


000004 
000144 


000200 


171176 


006500 
010056 
512 


00651 
002206 
002210 
000002 
012632 
100: 


000 
006512 


010056 


012141 
000001 


000001 


171200 


006500 
000001 


000001 


CALLDF : 


CALLDL: 


EMPTI2: 
EMPTL2: 


NONDTA: 


PFM1: 


PRINTF 


NDATA 
FLTRDY 
GREASE 


@PLOC,R1 
SETUPC 


NDATA 
PC,DFAULT 
LINCOD 


MFAILDL 


#100. ,RO 

RO 

NOND TA 
#BIT7,aRCSR 
NONDTA 


@RBUF 
EMPTL2 


ERWORD 
NDATA 

FLTRDY 
GREASE 


#STSRES,R1 
Re 
PC, XMIT 
#B1T15,ERWORD 
FLTRDY #1 
PFM1 


NDATA,#1 
NOND T 2 


MFAILDL 


;ASSUME NO UNIBUS ERRORS 


TASSUME NO FAILURE TO FIND TRANSMIT RDY 
TASSUME NO PREVIOUS ERRORS 


GET CSR ADDRESS 


SIF NOT ZERO, THEN SET UP INTERFACE ADDRESSES 


;CSR, LPR, TCR, RBUFF 
ASSUME NO UNIBUS ADDRESSING ERRORS YET. 


DO THE DEFAULT LOGIC & THEN THE LINE SIZE CODE 


3DO LINE SIZE LOGIC 
= ASSUME NO RAL ADDRESSING ERRORS YET. 


SET UP FOR 
ASSUME NO ERROR 


3NO DEVICE AT THAT ADDRESS? 
3NO PROBLEM WITH UNIBUS 
FAILED TO FIND DEVICE MESSAGE 


sEXIT TEST SEQUENCE 


TRAP 


#FAILDL ,-(SP) 
#1,-(SP) 
SP,RO 

C$PNTF 

a4 ,SP 


CS$DCLN 


y;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER. 
COUNT DOWN ONE FOR EACH CHARACTER 
:STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS. 


71S THERE A CHARACTER IN THE RBUF ? 


7 1F NO CHARACTER IN RBUF, 


;EMPTY RBUF. 


ASSUME NO ERRORS 
ASSUME NO UNIBUS ERR 


THEN CONTINUE... 


IGNORE BUFFER CONTENTS. 
CHECK FOR RDONE AGAIN AND EMPTY BUFFER 


SASSUME NO FAILURE TO OF IND TRANSMIT RDY 
[ASSUME NO PREVIOUS ERRORS. 


ADDRESS OF REQUEST STATUS SEQUENCE 


SEND ANSWER BACK SEQUENCE TO yeah 


TEOT MAY HAVE OCCURED. 
zFAIL TO FIND TRDY? 
[PRINT FAILURE MESSAGE 


ANY UNIBUS ERRORS? 
:IF SO, PRINT FAILURE MESSAGE. 


PRINT FAILURE MESSAGE 


#F AILDL ,=(SP) 
#1,-(SP) 
SP,RO 


SEQ 84 





SEQ 85 
INITIALIZE SECTION 
016206 104417 TRAP CSPNTF 
016206 062706 (000004 ADD #4 ,SP 
88 016212 DOCLN zEXIT TEST SEQUENCE 
‘ 016212 104444 TRAP C$DCLN 
90 016214 004737 014126 NONDT2: JSR PC,GETCHR :CHECK FOR A RESPONSE CHARACTER 
91 016220 120437 006521 (MPB R4, ESCAPE “WAS THE CHARACTER AN ESCAPE CHARACTER? 
92 016224 001411 BEQ NOND T3 ‘GET THE REST IF ESC FOUND. 
93 016226 PRINTF #FAILDL =PRINT FAILURE MESSAGE FOR DL SETUP. 
016226 012746 012141 MOV #FAILDL,-(SP) 
016232 012746 000001 MOV #1,-(SP) 
016236 010600 MOV SP,RO 
016240 104417 TRAP CSPNTF 
016242 062706 000004 ADD #4 ,SP 
94 016246 DOCLN sEXIT TEST SEQUENCE 
| we 016246 104444 TRAP C$DCLN 
| 96 016250 004737 014126 NONDT3: JSR PC,GETCHR :GET THE 2ND CHARACTER IN RESPONSE. 
97 016254 004737 014126 JSR PC,GETCHR ; 3RD 
| 98 016260 004737 014126 JSR PC,GETCHR : 4TH 
Re 016264 004737 014126 JSR PC,GETCHR : STH AND FINAL RESPONSE CHARACTER. 
101 
| 102 016270 000137 016570 JMP LINCOD :AND THEN DO THE LINE SIZE LOGIC. 
104 016274 012700 000002 SETUPC: MOV #2,RO0 
105 016300 063700 002204 ADD PLOC RO :RESPONSE FROM PTABLE. 2DZ (Y,N)? 
106 016304 011001 MOV (RO) ,R1 TIF = 0 THEN MULTILINE. IF 1 THEN SINGLE LINE 
24 016306 100633 BMI CALLDF * INTERFACE. 
108 016310 001240 BNE CALLDL :IF = 7 THEN SINGLE LINE. 
111 016312 005037 010056 CLR NDATA :ASSUME NO ADDRESSING (UNIBUS) ERRORS YET. 
Me 016316 004737 017004 JSR PC,DZSET sIF = 0 THEN MULTILINE. 
114 
115 016322 005037 006500 CLR ERWORD ASSUME NO ERRORS 
116 016326 023727 010056 0009001 CMP NDATA,#1 “NO DEVICE AT THAT ADDRESS? 
117 016334 001011 BNE EMPTI3 =NO PROBLEM WITH UNIBUS 
118 016336 PRINTF #FAILDZ *FAILED TO FIND DEVICE MESSAGE 


016336 012746 012236 MOV #F AILDZ,~(SP) 
C16342 012746 000001 MOV #1,-(SP) 


016352 062706 000004 ADD #4 ,SP 
016356 104444 TRAP C$DCLN 
121 016360 012700 000144 EMPT13: MOV 4 a ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER. 
2 
$$ 016376 001403 BEQ NONDZA :IF NO CHARACTER IN RBUF, THEN CONTINUE... 
28 016400 005777 170676 TST @RBUF EMPTY RBUF. IGNORE BUFFER CONTENTS, 


| 
| 
119 016356 DOCLN EXIT TEST SEQUENCE 
122 016364 005300 EMPT723: DEC R COUNT DOWN ONE FOR EACH CHARACTER 
iC 016366 002407 BLT NONDZA :STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS. 
: 5 016370 032777 000200 170700 BIT #B1T7,aRCSR 31S THERE A CHARACTER IN THE RBUF? 
1 
u 016404 000767 BR EMPTZ3 CHECK FOR RDONE AGAIN AND EMPTY BUFFER 


INITIALIZE SECTION 


| 
| 
| 
147 016470 
148 
149 616472 
016472 
016476 
016502 
016504 
016506 
150 016512 
016512 
151 
152 016514 
153 
154 
155 
156 
7 
158 016550 
159 016554 


160 016560 
161 016564 


—t <2 
RAO 
ans 


NNNNNOAOQO 
RANVSSES 
olelelelelele)=) 


~~ rd a SS SS 


005037 


023727 
001011 


012746 


104444 


004737 


120437 
001411 


012746 


004737 


012700 


000 
012737 


006500 
010056 
006512 
002206 
002210 
000002 
012632 


100000 
006512 


006500 
000001 


010056 000001 


012236 
000001 


000004 


014126 


006521 


012236 
000001 


000004 


000006 
002204 
000001 


000204 010042 
000120 010042 


NONDZA: 


PRTMe: 


NONDZ2: 


NONDZ3: 


LINCOD: 


EIGHTY: 


PRINTF 


DOCLN 


JSR 
CMPB 
BEQ 
PRINTF 


FLTRDY 
GREASE 


AMSTSRES,R1 
#2,R2 


e 


PC ,XMIT 
#81115, ERWORD 
FLTRDY #1 
PRTM2 


NDATA,#1 
NONDZ2 


MFAILDZ 


PC,GETCHR 
R4 ESCAPE 
NOND Z 3 
MFAILDZ 


PC,GETCHR 
PC,GETCHR 
PC,GETCHR 
PC,GETCHR 


INF IN 
#80..LINSIZ 


ASSUME NO ERRORS 
SASSUME NO UNIBUS ERRORS 


‘ASSUME NO FAILURE TO FIND TRANSMIT RDY 


TASSUME NO PREVIOUS ERRORS. 
; SEND REQUEST STATUS SFQUENCE. 


SEND REQUEST STATUS pokey eg a= PRINTER. 


IGNORE POSSIBLE EOT CONDITION 
[FAILURE TO FIND TRDY? 
[PRINT FAILURE MESSAGE 


zANY UNIBUS ERRORS? 
IF SO, PRINT FAILURE MESSAGE. 


PRINT FAILURE MESSAGE 


EXIT TESTING SEQUENCE 
TRAP 


CHECK FOR A RESPONSE CHARACTER 
[WAS THE CHARACTER AN ESCAPE CHARACTER? 


GET THE REST IF ESC FOUND. 
[PRINT FAILURE MESSAGE FOR DL __ 


EXIT TESTING SEQUENCE 


GET THE oo CHARACTER IN RESPONSE. 


RESPONSE FROM PTABLE. ?CHARACTERS PER 
1 oT THE _LINE CHARACTER DENSITY. 


;1F NOT 
oH EQ 1 “THEN 80 CHAR/LINE 
NOT EQ 1... THEN 132 CHAR/L INE 


LINE SIZE IS EIGHTY CHARS/L INE 


—” 


pte f -(SP) 
#1,-(SP) 
CEDCLN 


ahi + * ala 


C$DCLN 


4TH 
5TH AND FINAL RESPONSE CHARACTER. 


LINE? 


1=B80CHAR/L INE 
= 1 THEN 132 eo PER LINE. 


SEQ 86 


75 016626 
016632 
016634 
’B 016636 
0 
0 


000000 WINN 
BLS BGI 


1 
: 
1 
1 
1 
: 
1 
1 
1 


Oo 
Ww 
oO 
= 
& 
vw 
, 


a ed nw So ed ot SS 
Re LSSBVRAR 


MoM Mo NgNMONM NPY 
— od od et ot oo 
OnNAWESW- 


219 


4 
225 016704 
016704 

226 


INITIALIZE SECTION 


013701 
006301 
006301 
010137 
006301 
060137 
005037 
012700 
104436 
032777 
001403 


005777 
000771 


104432 
000662 


010042 


010040 
010040 
006500 
000004 


000200 


170404 


170406 


INF IN: 


EMPTYR: 


ENDIN: 


CLR 
CLRVEC 


BIT 
BEQ 


TST 
BR 


EXIT 


LINSIZ,R1 
R1 


R1 
R1,LINN 
R1 


R1,LINN 


ERWORD 
a4 


#B1T7,aRCSR 
ENDIN 


@RBUF 
EMPTYR 


INIT 


bg THE LINE SIZE. NUMBER OF CHARACTERS/LINE 


KG 

Sw y LINSIZ X 4 

Be 

sLINSIZ X (448) = LINSIZ X 12 => LINN 


ASSUME NO ERRORS - YET. 
RESET VECTOR TO ORIGINAL wena 


#4 RO 
TRAP C$CVEC 
EMPTY RECEIVER BUFFER... 
71S THERE A CHARACTER IN THE RBUF ? 
7 IF NO CHARACTER IN RBUF, THEN EXIT. 
EMPTY RBUF. IGNORE BUFFER CONTENTS. 
CHECK FOR RDONE AGAIN AND EMPTY BUFFER 
7 1F NEEDED. 
TRAP CSEXIT 
-WORD 110004-. 


eth agian FOR UNIBUS FAILURE TO FIND A DEVICE AT THE REFERENCED 
ALL THAT IS NECESSARY IS TO INDICATE THAT THE TRAP ROUTINE HAS BEEN 
ao te gl A DEVICE WAS UNSUCCESSFULLY ADDRESSED) AND RETURN FOR 


sOUTPUTS 


NDATA 


NONE 


is IF THIS ROUTINE IS PERFORMED, NDATA WILL BE SET. 
SUBORDINATE ROUTINES 


CALLING SEQUENCE 


WHEN A TRAP OCCURS THE ROUTINE IS CALLED. 


BGNSRV UBTRAP 


s TRAP SERVICE ROUTINE 
UBTRAP: : 


SEQ 87 


| INITIALIZE SECTION 
227 016704 012737 000001 


| 


229 016712 
016712 
016712 


2 
273 016714 
ta 016720 


27 
276 016724 
277 016730 


281 016750 


000002 


017701 
010137 


163264 
007276 


000002 
007302 
000002 
007300 
000002 
007304 


010056 


UBTRAP: MOV 
ENDSRV 


#1 ,NDATA 3NO DEVICE AT THAT ADDRESS INDICATED. 


L10005: 
RTI 


ARARARAARAAAARARRARARRARRARARARARRARRARARARARRARARRARRARARRARARRRARARARRRARRRRAR 


FUNCTIONAL DESCRIPTION 
LOCAL PROCEDURE DLSET 


; THIS PROCEDURE WILL TAKE THE CSR ADDRESS GIVEN IN CSRADD AND SET UP 
2 THE ADDRESSES FOR THE RCSR, THE XCSR, AND THE RBUF AND XBUF REGISTERS. * 


THIS CODE IF FOR SINGLE LINE INTERFACES ONLY. . 


aA 


re re ee ee ee 
>> > > 


. 

. 

e ARAARAAARAAAAAARRARAAARARARARAARAARARARARARARRAARARARARRARARARARARARARARARARARRRARRARRARAR 
° 


= INPUTS 

: CSRADD - ADDRESS OF CSR REGISTER. 

“QUTPUTS 

: NONE 

SUBORDINATE ROUTINES 

NONE 

“FUNCTIONAL SIDE EFFECTS 

: INTERFACE REGISTERS ARE SET UP IF THE CSR ADDRESS IS VALID. 
= CALLING SEQUENCE 

PLACE ADDRESS OF CSR REGISTER INTO CSR ADD. 
; JSR PC ,DLSET 


DLSET: MOV @PLOC,R1 SET UP CSR ADDRESS & BUFFER ADDRESSES. 
MOV R1,RCSR zADDRESS OF RECEIVER CSR REGISTER. 
ADD #2,R1 
pe ame zADDRESS OF RECEIVER BUFFER REGISTER 
yr RI -XCSR zADDRESS OF THE TRANSMITTER CSR REGISTER, 
MOV R1. XBUF ADDRESS OF THE TRANSMITTER BUFFER REGISTER. 





SEQ 88 


L 7 
SEQ 89 
INITIALIZE SECTION 
282 
283 016754 005037 010052 CLR MLTLIN S INDICATE THAT THIS IS A SINGLE LINE INTERFACE. 
284 016760 012737 000200 010044 MOV #8117, TRDYBT ;PLACEMENT OF XMIT READY BIT FOR SINGLE LINE 
286 016766 012737 006440 007306 MOV #JUNKPL LPR ‘WHEN LPR IS STUFFED, CONTENTS GO TO JUNKPL 
287 016774 0612737 006440 007310 MOV #JUNKPL.TCR “WHEN SENCHR STUFFS TCR, CONTENTS GO TO JUNKPL 
289 017002 000207 RTS PC 
290 
291 
292 : 
293 emememmcumencabptaciaenintaiascaentucuiace caine aadeuascaniaad anaes a ana cumaaaaeaa aes 
a “FUNCTIONAL DESCRIPTION 
296 : LOCAL PROCEDURE DZSET: 
298 : THIS ROUTINE WILL ACCEPT THE ADDRESS IN THE GLOBAL VARIABLE CSRADD 
299 : AND THEN SET UP THE VARIOUS MULTILINE INTERFACE REGISTERS ASSOCIATED 
300 : WITH THE D211 OPTION: CSR, RBUF, LPR, TCR, MSR (IGNORED), AND TDR. 
302 ama liaaeeaacietamnancc amateur eaancaeiaaae mammemmeamanemmumeaiamanmncamanaeae 
303 ; 
ied > INPUTS 
306 CSRADD - ADDRESS ASSUMED AS THE CSR REGISTER. 
308 > OUTPUTS 
309 ; 
310 ; NONE 
311 : 
312 ‘SUBORDINATE ROUTINES 
314 : NONE 
315 ; 
516 “FUNCTIONAL SIDE EFFECTS 
318 : THE DZ11 INTERFACE ADDRESSES ARE SET UP IF THE CSR ADDRESS IS VALID. 
320 SCALLING SEQUENCE 
322 : THE CSR ADDRESS MUST BE IN CSRADD. THE CALL: 
323 : JSR PC,DZSET 
324 : 
325 ; 
326 : 
327 
2 
330 017004 017701 163174 DZSET: MOV @PLOC.R1 :GET THE CSR ADDRESS TO SET UP INTERFACE REG'S 
331 017010 010137 007276 MOV R1,RCSR “ADDRESS OF RCSR AND THE XCSR WILL BE THE SAME 
332 ‘ : IN A DZ11. THE TRDYBT XMIT READY BIT 
333 : WILL CHANGE, HOWEVER. 
334 017014 010137 007300 MOV R1,XCSR ‘AND POINT TO THE NEXT REGISTER ADDRESS 
336 017020 062701 000002 ADD #2,R1 
337 017024 010137 007302 MOV R1 .RBUF ZADDRESS OF THE RECEIVER BUFFER 
338 017030 010137 007306 MOV R1_LPR SADDRESS OF THE LINE PARAMETER REGISTER 


SEQ 90 
INITIALIZE SECTION 
339 
340 017034 062701 000002 ADD #2,R1 
ol 017040 010137 007310 MOV R1,TCR sADDRESS OF THE TRANSMIT CONTROL REGISTER 
343 017044 062701 000002 ADD #2,R1 
Se 017050 010137 007312 MOV R1,TDR z:ADDRESS OF THE TRANSMIT DATA REGISTER 
346 017054 013737 007312 007304 MOV TDR, XBUF ;WHEN REFERENCING THE XBUF, YOU WILL WANT 
ot 4 ; THE TDR - TRANSMIT DATA REGISTER. 
349 017062 012777 000040 170206 MOV #B1TS,@RCSR :CLEARS INTERUPT ENABLE BITS AND 
5 SETS MASTER SCAN ENABLE. 
$25 017070 012737 100000 010044 MOV #B1T15,TRDYBT + DEF INE TRANSMIT READY BIT FOR DZ11 CSR. 
353 017076 012700 690004 MOV #4 RO 
354 017102 063700 002204 ADD PLOC,RO :PTABLE ENTRY. ?DZ CHANNEL NUMBER? 
355 017106 011002 MOV (RO) ,R2 “CHANNEL TO BE SET INTO TCR REGISTER 
356 017110 006302 ASL R2 ; CHANGE THE RANGE FROM 0-7 TO 0-14 
357 TO BE USED AS A TABLE OFFSET. 
358 617112 016237 006444 006436 MOV TCRTBL (R2) . TCRENA :GET MASK FROM TABLE, PLACE IN TCR REG. 
359 :TO DETERMINE THE CHANNEL CHOSEN 
360 017120 012700 000004 MOV #4 ,RO :PTABLE ENTRY #3 
361 017124 063700 002204 ADD PLOC,RO *PTABLE ENTRY ADDRESS FOR CHANNEL &. 
362 017130 051037 006442 BIS (RO), LPRINI *NEW LPR STATUS WITH CH #4 INCLUDED. 
er 017134 013777 006442 170144 MOV LPRINI,@LPR :SET UP LPR ON DZ INTERFACE 
365 017142 000207 RTS PC 
366 
367 
368 
369 
370 
371 
372 : 
373 ~ suaeanaecieduaedanenetsnmagemsmvemnapenapammer natu inn emmmainiaaaamagene a remem ianta dance naa manmade on anmmiauaiaataae 
es FUNCTIONAL DESCRIPTION 
a) ; LOCAL PROCEDURE DFAULT: 
378 s THIS CODE WILL COMPUTE THE CSR ADDRESS AND SET UP THE INTERFACE 
379 Z REGISTER ADDRESSES. THE CSR ADDRESSES ARE CHECKED BY SENDING THE 
380 : PRINTER AN ‘'ANSWER BACK'' QUERY AND CHECKING FOR THE APPROPRIATE 
381 > RESPONSE FROM THE PRINTER. 
382 : 
383 ae emanate deen nema een nnn nama 
384 ; 
385 7 INPUTS 
386 : 
387 * NONE 
388 : 
44 OUTPUTS 
391 3 CSRADD -ADDRESS Of THE CONTROL STATUS REGISTER 
392 g RBUF -BUFFER ADDRESS 
393 r XCSR nen te be CSR 


RCSR ~RECEIVER CSR 
395 ; XBUF ~TRANSMITTER BUFFER ADDRESS 


4 
415 €17144 


6 
bat 017152 


419 017156 
420 017164 


421 
422 017166 
425 
424 017172 


425 017176 
rey, 017200 


4 

428 017202 
429 017210 
430 


431 017212 
oe 017216 


4 

434 017220 
435 017224 
436 017230 
oc 017234 


4 

439 017240 
440 017244 
441 017250 
442 017252 
443 017256 


444 
445 017264 
rey 017272 


18 017274 
449 017276 
450 


451 
452 017302 


013777 
004737 


023727 
001462 


005037 
012700 
005300 
002407 
032777 
001403 


012702 

003 
023727 
001417 
005004 
004737 


120437 


005252 
016714 
070056 


006500 
000144 
000200 


170064 


012632 
100000 


010056 


014126 


006521 


163032 


000001 


170066 


000001 


-]S =! IF THE INTERFACE IS A D211. 


= GET A CHARACTER. 


: MLTLIN 
SUBORDINATE ROUTINES 
GE TCHR 
XMIT 


JSR 


DFAULT: MOV 


EMPTI4: MOV 
EMP4: DEC 


ABSND: CLR 


” SEND A SEQUENCE OF CHARACTERS TO THE PRINTER. 


FUNCTIONAL SIDE EFFECTS 
THE INTERFACE REGISTERS SHOULD BE SET UP. 
CALLING SEQUENCE 


PC ,DFAULT 


DLDFLT,@PLOC 
PC,DLSET 


NDATA,#1 
DZDCOD 


ERWORD 

#100. ,RO 
RO 

ABSND 

#BIT7,aRCSR 

ABSND 

@RBUF 

EMP4 

ERWORD 

NDATA 
FLTRDY 
GREASE 

#STSRES,R1 
2.R2 

PC XMIT 

#B1T15,ERWORD 

NDATA, #1 

DZDCOD 

RS 

PC, GETCHR 


R4, ESCAPE 


4 
zASSUME A SINGLE LINE INTERFACE 
SET UP THE REGISTER ADDRESSES 


zWAS THERE AN ILLEGAL ADDRESSING ERROR? 
IF SO, DL SETUP FAILED. TRY DZ SETUP. 


yASSUME THAT NO ERRORS HAVE BEEN FOUND - YET. 


ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER. 
COUNT DOWN ONE FOR EACH CHARACTER 
:STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS. 


31S THERE A CHARACTER IN THE RBUF? 
7I1F NO CHARACTER IN RBUF, THEN CONTINUE. 


EMPTY RBUF. IGNORE BUFFER CONTENTS. 
; CHECK FOR RDONE AGAIN AND EMPTY BUFFER 


ZASSUME NO ERRORS 

[ASSUME NO UNIBUS ERRORS 

TASSUME NO FAILURE TO FIND TRANSMIT RDY 
TASSUME NO PREVIOUS ERRORS. 


2 SEND REQUEST STATUS SEQUENCE. 


“SEND ANSWER=BACK SEQUENCE TO PRINTER. 
7 IGNORE POSSIBLE EOT INDICATION. 


yI1F SET THEN TRY MULTILINE ADDRESS 
7I1F NOT SET, DO THE DZ CHECK 


jBR4 SHOULD GET ESCAPE CHAR IF Di PRESENT, 
;THE DELAY SHOULD BE LONG ENOUGH TO PERMIT 
STHE PRINTER TO RESPOND. 

[NOW GET THE FIVE RESPONSE CHARACTERS 

31S IT AN ESCAPE CHARACTER? 


SEQ 91 


INITIALIZE SECTION 


SSS eee 


— 


453 017306 


458 017330 
459 
460 017332 


463 017346 


404 
465 017352 
466 017360 


468 017364 
469 017372 


472 017374 
473 017376 


477 017410 


479 017412 
480 017420 


482 017422 
483 017426 


485 017430 


488 017444 
490 017450 


496 917474 
497 017502 


499 017504 


508 017532 
509 017536 


013777 
004737 


023727 
001462 


005003 
005037 


012700 
005300 
002407 


032777 
001403 


005777 
000767 


005254 
017004 


010056 


006500 
000144 
000200 


167654 


002210 
000002 
012632 
100000 
010056 


014126 


162624 


000001 


167656 


006500 
000001 


DZDCOD: 


EMPTI5: 


EMPS: 


ABSS: 


DZDCOD 
PC,GETCHR 
PC,GETCHR 
PC,GETCHR 
PC,GETCHR 
DONE DF 


ERWORD 
NDATA 

FLTRDY 
GREASE 


DZDFLT,@PLOC 


PC,DZSET 


NDATA,#1 
FAILDF 


R3 
ERWORD 
#100. ,RO 
RO 

ABS5 
#BIT7,aRCSR 
ABS5 
@RBUF 
EMPS 
ERWORD 
NDATA 
FLTRDY 
GREASE 


9S pase 


° 


PC,XMIT 
#81T15,ERWORD 


NDATA,#1 
FAILDF 


PC,GETCHR 


R4 ESCAPE 
FAILDF 

PC,GETCHR 
PC,GETCHR 
PC,GETCHR 
PC,GETCHR 
DONE DF 


NO? THEN TRY DZ ADDRESS DEFAULT. 


o 
° 


“THE FINAL CHARACTER SHOULD BE A 
TYES? THEN SUCCESSFULLY COMPEETED. 


ASSUME NO ERRORS 

;ASSUME NO UNIBUS ERRORS 

TASSUME NO FAILURE TO FIND TRANSMIT RDY 
ASSUME NO PREVIOUS ERRORS. 


yASSUME A DZ INTERFACE AT ADDRESS 776010 
3SET UP REGISTERS FOR A DZ11 INTERFACE 


;HAS AN ILLEGAL ADDRESS ERROR OCCURRED? 


cif 3G, 


BOTH DL AND DZ DEAFUALTS HAVE FAILED. 
SO LET USER KNOW. 


DISABLE BIDIRECTIONAL PRINTING LOGIC 
TASSUME NO ERRORS HAVE YET OCCURRED. 


;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER. 
;COUNT DOWN ONE FOR EACH CHARACTER 
:STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS. 


31S THERE A CHARACTER IN THE RBUF? 
;1F NO CHARACTER IN RBUF, THEN CONTINUE. 


EMPTY RBUF. IGNORE BUFFER CONTENTS. 
CHECK FOR RDONE AGAIN AND EMPTY BUFFER 


3ASSUME NO ERRORS 

[ASSUME NO UNIBUS ERRORS 

[ASSUME NO FAILURE TO FIND TRANSMIT RDY 
ASSUME NO PREVIOUS ERRORS. 


: SEND REG STATUS SEQUENCE. 


SEND REQ STATUS SEQUENCE TO PRINTER. 
IGNORE POSSIBLE EOT INDICATION. 


CHECK FOR OCCURRANCE OF TRAP.. 
:I1F SET THEN PRINT AN ERROR AND START OVER 


;DELAY SHOULD GIVE PRINTEWR ENOUGH TIME TO 
[RESPOND TO ANSWER-BACK SEQUENCE. 


GET THE FIVE CHARACTER RESPONSE TO THE QUERY 


TEXPECTING ESCAPE CHARACTER IF DZ PRESENT. 
:DEFAULT ADDRESSES DIDN'T WORK OUT. 


“LAST CHARACTER A a ee CASE) 
FOUND THE ADDRESS. EXIT 


SEQ 92 


r 
| 
| INITIALIZE SECTION 


510 
511 017540 
017540 


017554 

512 017560 
3 017560 
514 017562 
515 
516 
517 
518 
519 


520 
521 
522 


012746 011622 
gerne 000001 


7 
062706 000004 
104444 
000207 


104411 


104461 


FAILDF: 


DONELF : 


- SBTTL 


. SBTTL 


PRINTF #FAILM 


DOCLN EXIT TESTING SEQUNCE 


RTS PC 


-EVEN 


ENDINIT 


AUTODROP SECTION 
BGNAUTO 


ENDAUTO 


CLEANUP CODING SECTION 


i. 10004: 


LSAUTO:: 


L 10006: 


PRINT FAILURE MESSAGE AT ame 


MOV 
MOV 
TRAP 
ADD 
TRAP 


TRAP 


TRAP 


MF AILM,=(SP) 
yr le 


C$DCLN 


CSINIT 


C$AUTO 


SEQ 93 


WOONAUSWN—OWOO NOUSWN~ 


et et os SY te ot 


017570 
017570 


017602 


017606 
017612 
017616 
017620 


C17624 


017630 
017630 
017630 


CLEANUP CODING SECTION 


012701 


012701 
012702 
005003 
004737 


104432 
000002 


104412 


002214 
000010 
012632 


002224 
000002 


012632 


++ 
- THE CLEANUP CODING SECTION CONTAINS THE CODING THAT iS PERFORMED 


y AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


BGNCLN 


MOV ADUMMYS ,R1 
MOV #8..R2 


CLR R3 

JSR PC,XMIT 
MOV AMRESET,R1 
KiOV #2,R2 
CLR R3 

JSR PC,XMIT 
EXIT CLN . 
-EVEN 

ENDCLN 


.- TITLE HARDWARE TESTS 


LSCLEAN:: 
zFIX INTERFACE TO ACCEPT PRINTER RESET. 


‘SEND DUMMY SEQUENCE 


; TRANSMIT PRINTER RESET SEQUENCE (ADDRESS) 
32 ARGUMENT LIST 

3NO BIDIRECTIONAL PRINTING NECESSARY 

SEND SEQUENCE TO PRINTER 


TRAP CSEXIT 
-WORD 110007-. 


L10007: 
TRAP CS$CLEAN 


.SBITL TEST 1: PRINTER SELF TEST 


SEQ 94 


E 





TEST 1: 


j 
' 
! 
! 


NN Ae a PS oS as 


[OVO ONAUNEWRHOUDOMND MEW 


PRINTER SELF TEST 


917632 
017632 


C17632 
017636 


017652 
017654 


017670 
017674 


017712 
017720 


017722 


36 017726 


017732 


017752 
017760 


004737 


104421 
010037 
032737 
001010 


012746 
012746 


023727 
001402 


052737 
004737 


104401 


| 


014412 


005260 
000010 


002333 
000001 


000004 


002255 
000002 


015360 


005260 


177777 


006500 
006500 


BGNTST 


IS COMPLETE, 
IF EVERYTHING HAS OPERATED PROPERLY. 


Tits 


CREAR STR SSSSETSBAESCED SA GKCRAECHES CALS HSARASRVSL SHS SSCL FCASSYRLASA SS SHPM SVS Sos ovIwser sere 


TEST #1 


THIS TEST WILL INITIATE THE PRINTER SELF-TEST. 
THE PRINTER SENDS THE PRINTER STATUS AND AN XON CHARACTER 


AFTER THE SELF-TEST 
THE PRINTER STATUS IS THEN 


EXAMINED AND APPROPRIATE ERROR REPORTING IS INITIATED. 


epee eeseesee ees eee es eeeeeseeseeseseeeseeeseseseeeeseeseeseeseeseeseesseeeeeseeseseeeeeee 


TILOT: 


PRNTIT: 


CHKNG: 


STSCAL : 


JSR 
RFLAGS 
BIT 
BNE 
PRINTB 


PC, INITCD 
FLAGS 


#LOT, FLAGS 
TILOT 


#TITLE1 


ASLFTST,R1 
* R2 


PC, XMIT 


GREASE ,#-1 
PRNTIT 


PC,STATS 
PC, ERRORS 


PC,GETCHR 
XON,R4 
STSCAL 


#81113, ERWORD 
#81715, ERWORD 


PC, ERRORS 


INITIALIZE FOR THIS TEST 
READ THE START TIME SUPERVISOR FLAGS 
TRAP 


CSRFLA 
MOV RO,FLAGS 
;WAS LOOP ON TEST ASKED FOR? 
71F LOT THEN DON'T PRINT TEST TITLE. 
om oe 
;CONSOLE TEST TITLE 
MOV ATITLE TCSP) 
MOV #1 ,-(SP) 
MOV SP .RO 
TRAP C$PNTB 
ADD #4 SP 


ADDRESS OF SELT TEST ARGUMENT SEQUENCE 
32 CHARACTERS IN SEQUENCE 

[DISABLE BIDIRECTIONAL PRINTING 

[SEND THE ARGUMENT LIST 


WAS THERE A ‘'GREASED** EXIT FROM XMIT? 
:IF SO, PREPARE TO PRINT TO CONSOLE 
THE ERRORS FOUND DURING XMIT ATTEMPT. 
“RECEIVE STATUS AND FIT TO ERWORD. 
;DECODE ERROR WORD & PRINT ERROR MESSAGES 


GET ANOTHER (SIXTH? CHARACTER 
“TS IT AN ‘XUN’? 
sIF OK, (XON F OUND ) THEN CHECK STATUS 
7SET ECNRB 
: INDICATE ERROR 
sCHECK FOR ERRORS 
L10010: — 


SEQ 95 





————————-— 


SEQ 96 
TEST 1: PRINTER SELF TEST 


58 .SBTTL TEST 2: UNDERLINE / NO@UNDERLINE MODE TEST 


F517 2: UNDERLINE / NO=UNDERLINE MODE TEST 


017766 
017766 


MH—CUOONAW FWH-- 


017766 


017772 
017772 


+ 4 os vs rs I Ss 


ins) 
OCOBNANEWN 


02 
020110 
020114 


47 020144 
49 020152 


> 
SLESEESLESSEAEUSYSVRD 
OO 
8 
™N 
nN 


001027 


012746 


004 
042737 
012704 


126027 
00 


012700 
112760 


012701 


014412 


005260 
000010 


002366 
000001 
000004 
040000 


000053 


012632 
040000 


177777 
006531 
000001 
012632 
015360 


000001 
002266 


000040 


000001 
00004 1 


002266 


005260 


006500 


006500 


000041 
002266 


002266 


BGNTST 


ZELLER CREE LEDBEROSBSBOSBSES EER BRESAELGE 


SHEERS SPREE KRSBAESETASSHeSHREREC CHES SCTESCHC RK CECE ES 


TEST #2 
UNDERLINE / NO-UNDERLINE MODE 


PRINT A SINGLE LINE OF ALTERNATING UNDERLINED AND ~ Bh “epi caer 


tes 


"A'S, CHECKING FOR FRRORS FROM THE PRINTER ALONG THE WAY 


JSR 
RFLAGS 


BIT 
BNE 


PRINTB 


T2LOT: 
PLOOP: 


PC, INITCD 
FLAGS 


#LOT, FLAGS 
T2LOT 


ATITLE2 


#B1T14,ERWORD 
ora Tee mt 


#4,R 

#43. ,R2 

R3 

PC,XMIT 
#BIT14,ERWORD 
#-1,R4 
#SCA,R1 

#1,R2 

R3 


PC, XMIT 
PC, ERRORS 


#1,RO 

STULMD (RO) , #ONE 
SE TONE 

#ZERO, vbttesttuis 
NE WMOD 


RO 
PONE. STULMD(RO) 


@STULMD,R1 


INITIALIZE TEST 
READ START TIME SUPERVISOR FLAGS 
TRAP 


zWAS THE LOOP ON TEST FLAG SET? 
SKIP PRINT OF TEST TITLE IF ‘LOT’. 


sCONSOLE PRINT TITLE 


; INHIBIT ERROR HANG-UPS 
SADDRESS OF STRING TO PRINT (~ITLE) 
: SKIP FIRST FOUR CHARACTERS 

43 CHARACTERS TO PRINT IN STRING 
“DISABLE BIDIRECTIONAL 
SEND THE ARGUMENT SEQUENCE 
:RE-ENABLE ERROR HANG-UPS 


7 CHARACTER COUNT 


> ADDRESS OF ASCII ‘‘A’' 


ONE CHARACTER 
NO BIDIRECTIONAL PRINTING 
ND ‘‘A’* TO PRINTER FOR PRINTING. 


3 SE 
; CHECK FOR ERRORS 


31S THE UNDERLINE MODE SET 
Mes! HEN CHANGE TO UNDERLINE MODE 


TRANSMIT MODE CHANGE AT NEWMOD 


CHANGE TO UNDERLINE MODE 
;ADDRESS OF ARGUMENT STRING 


THEN CHANGE TO NON-UNDERL INE MODE 


CSRFLA 
RO, FLAGS 


At = (SP) 
#1,-(SP) 
SP, “RO 
C$PNTB 


SEQ 97 


) SEQ 98 
TEST 2: UNDERLINE / NO=UNDERLINE MODE TEST 
50 020156 012702 000003 MOV #3,R2 ;WHICH IS THREE CHARACTERS LOONG 
51 020162 004737 612632 JSR PC,XMIT ;SEND THE SEQUENCE 
6 020166 004737 015360 JSR PC,ERRORS : CHECK FOR ERRORS 
54 020172 005204 INC —R4— sUPDATE COUNT OF CHARACTERS. 
55 020174 020437 010042 CMP R4,LINSIZ sPRINTED A LINE YET? 
5 020200 001334 BNE PLOOP :DO LOOP UNTIL DONE 
58 020202 012701 002313 MOV #CR,R1 ;ADDRESS OF <CRLF> 
59 020206 012702 000002 MOV #2,R2 :BOTH CHARACTERS 
60 020212 004737 012632 JSR PC,XMIT sPRINT (ACCUMULATE) <CR><LF> 
rel 020216 004737 015360 JSR PC,ERRORS ; CHECK FOR ERRORS. 
63 020222 ENDTST 
020222 L10011: 
- 020222 104401 TRAP CSETST 
65 
66 
67 Es e 
68 
69 
70 
71 
72 
73 
7 .SBTTL TEST 3: HAMMER HIT COUNT TEST 


SEQ 99 
TEST 3: HAMMER HIT COUNT TEST 
1 
2 
3 
r 
5 
6 
8B 020224 BGNTST 
020224 13:: 
9 
10 
11 
12 TOP CeCESEPOCOEERSE DE COEE SP EEOSS EES CSECS PEC IS EE Etrs L2o SESE EP ECE TS ELLE S EES EE eee: 
13 . 
14 ; 
15 s TEST #3 
16 
4 HAMMER HIT COUNT TEST 
19 : FOUR LINES ARE TRANSMITTED TO THE PRINTER. THE HIT COUNT 
20 4 RANGES FROM 0 TO 3 HITS PER CHARACTER TRANSMITTED. ONE BLANK 
21 : LINE AND THREE NON-BLANK LINES OF INCREASING DARKNESS SHOULD 
$ 3 BE EVIDENT ON THE PRINT PATTERN. 
Oe he ire ie eke pede) Pe Ya ss ee iebandadnbbins boners oebadensneeuperneenaeesent tyieeeseneseees 
i 
er 020224 004737 014412 TEST3: JSR PC, INITCD sINITIALIZE TEST 
29 020230 RFLAGS FLAGS :READ START TIME SUPERVISOR FLAGS 
020230 104421 TRAP  C$RFLA 
020232 010037 005260 MOV RO, FLAGS 
30 020236 032737 000010 005260 BIT #LOT, FLAGS :WAS THE LOOP ON TEST FLAG SET? 
Hy 020244 001027 BNE T3LOT :SKIP PRINT OF TEST TITLE IF ‘LOT’. 
33 020246 PRINTB #TITLE3 ;CONSOLE PRINT TEST TITLE 
020246 012746 002446 MOV ATITLE3,-(SP) 
020252 012746 000001 . MOV #1,-(SP) 
020256 010600 MOV SP.RO 
020260 104414 TRAP C$PNTB 
020262 062706 000004 ADD #4 SP 
35 020266 052737 040000 006500 BIS #B1T14,ERWORD ;DISABLE ERROR HANGUPS 
36 620274 012701 002446 MOV ai TLE3,R1 : TITLE ADDRESS 
37 020300 062701 000004 ADD R1 SSKIPPING THE FIRST FOUR TWO CHARACTERS. 
38 020304 012702 000040 MOV 433 JR2 +32 CHARACTERS LONG 
39 020310 005003 CLR R3 :NO BIDIRECT 1ONAL PRINTING 
40 020312 004737 012632 JSR PC,XMIT ‘PRINT TEST T 
1 020316 042737 040000 006500 BIC #BIT14.ERWORD :RE-ENABLE ERAON HANG-UPS 
43 020324 113737 006533 006522 T3LOT: MOVB  5SC1.SNGCHR - THE CHARACTER °I'' TO BE PRINTED 
44 020332 112737 000040 010060 MOVB #ZERO, HITARG  :HIT COUNT ARGUMENT 
45 620340 012700 000001 LINLOO: MOV RO 
46 020344 113760 010060 002257 MOVB hl STHTCT(RO) z INSERT IN ARGUMENT TEMPLATE 
47 850883 005237 010060 INC HITARG :NEW ARGUMENT FOR HITARG 
48 020356 012701 002257 MOV #STHTCT,R1 SADDRESS OF ARGUMENT LIST 
49 020362 012702 000003 MOV #3,R2 +3 CHARACTER ARGUMENT LIST 





SEQ 100 
TEST 3: HAMMER HIT COUNT TEST 
50 020366 005003 CLR R3 :DISABLE BIDIRECTIONAL PRINTING FOR NOW. 
51 020370 004737 612632 JSR PC,XMIT *SEND THE LIST = ADJUST HIT COUNT 
2¢ 020374 004737 015360 JSR PC, ERRORS :CHECK FOR ERRORS. 
54 020400 005004 CLR R4 COUNT OF CHARACTERS 
55 020402 012701 006522 CHRLOO: MOV ASNGCHR,R1 ‘ADDRESS OF CHAR TO BE PRINTED 
| 56 020406 012702 000001 MOV #1,R2 SINGLE CHARACTER 
57 020412 012703 177777 MOV #-1,R3 ‘ENABLE BIDIRECTIONAL PRINTING. 
58 020416 004737 012632 JSR PC, XMIT SEND THE CHARACTER 
2 020422 004737 015360 JSR PC, ERRORS :CHECK FOR ERRORS. 
61 020426 005204 INC R4 :UPDATE NUMBER OF CHARACTERS PRINTED THUS FAR. 
62 020430 020437 010042 CMP R4,LINSIZ :SENT A LINES WORTH YET 
¢? 020434 001362 BNE CHRLOO ‘NO, CONTINUE SENDING. 
65 020436 005237 006522 INC SNGCHR : INCREASE ASCII PATTERNTO_NEXT CHARACTER 
66 020442 123727 010060 000043 CMPB HITARG,#THREE :PRINTED THE HIT COUNT = 3 LINE YET? 
4 020450 001333 BNE LINLOO ‘REPEAT PRINTING LINES UNTIL HIT COUNT = 3 
69 620452 012700 000001 MOV #1,RO 
70 020456 112760 000040 002257 MOVB AZERO, STHTCT<RO) :REVERT BACK TO HIT COUNT OF 1 
71 020464 012701 002257 MOV #STHTCT,R1 
72 020470 012702 000003 MOV #3,R2 
73 020474 005003 CLR R3 DISABLE BIDIRECTIONAL PRINTING 
74 020476 004737 012632 JSR PC, XMIT ‘SEND PRINTER ARGUMENT LIST FOR HIT COUNT=1 
le, 020502 004737 015360 JSR PC, ERRORS >CHECK FOR ERRORS 
77 020506 ENDTST 
020506 L10012: 
a 020506 104401 TRAP CSETST 
79 
80 
81 
s2 ° ; 
83 c 
84 : 
85 
86 .SBTTL TEST 4: CARRIAGE POSITIONING TEST 


Eee ee 


TEST 4: CARRIAGE POSITIONING TEST 


wn 


020510 
920510 


OOONAUERWN HO CONAW 


ed ee eed ee ed od oe ed 


Mr 
st© 


020510 
020514 


(20546 
020552 
60 


49 020644 


004737 


104421 


012746 


012701 
012702 
004737 


004737 
012701 
012702 
004737 
004737 


014412 


005260 
000010 


002513 
000001 
000004 


040000 
002513 
000 


004 
000044" 


012632 
040000 


005260 


006500 


006500 


BGNTST 


TEST: 


T4LOT: 


TEST #4 


7423 


CARRIAGE POSITIONING TEST 


IN THIS TEST THE PRINTER CARRIAGE WILL BE EXERCISED BY MOVING 
THE CARRIAGE BACK AND FORTH INCREASING AMOUNTS FROM THE MINIMUM 


HORIZONTAL INCREMENT OF MOVEMENT TO THE MAXIMUM (PAGE SIZE) HORIZONTAL 
IN THE PROCESS, ANY ERRORS DETECTED BY THE 
PRINTER WILL BE IDENTIFIED AND REPORTED. 


INCREMENT OF MOVEMENT. 


JSR 
RFLAGS 
BIT 
BNE 
PRINTB 


PC, INITCD 
FLAGS 


#LOT, FLAGS 
T4LOT 


ATITLES 


#B1T14,ERWORD 
ATITLES,R1 
#4,R1 

#36.,R2 

R3 


PC ,XMIT 
#81114, ERWORD 
#SCX,R1 


#1,R?2 
PC. XMIT 
PC ERRORS 


PC, XMIT 
PC,ERRORS 


INITIALIZE TEST 
READ START TIME SUPERVISOR FLAGS 
TRAP 


WAS THE LOOP ON TEST FLAG SET? 
7SKIP PRINT OF TEST TITLE IF ‘LOT"’. 


CONSOLE PRINT THE TEST TITLE 


; INHIBIT ERROR HANG-UPS 

ADDRESS OF TITLE #4 TO BE PRINTED 
SKIP FIRST FOUR CHARACTERS 

336 CHARACTERS IN THE TITLE 
DISABLE BIDIRECTIONAL PRINTING 

; TRANSMIT THE STRING TO THE PRINTER 
RE-ENABLE ERROR HANG-UPS 


zADDRESS OF THE SINGLE CHARACTER *’x’*. 


SINGLE CHARACTER TO BE PRINTED 
;PRINT THE CHARACTER ‘‘A’’. 
CHECK FOR ERRORS. 


ADDRESS OF CARRIAGE RETURN ASCI! 
sTWO CHARACTERS INCLUDE <CR> & <LF>. 
:SEND <CR><LF> TO PRINTER 

: CHECK FOR ERRORS 


CSRFLA 
RO,FLAGS 


MTITLE4,-(SP) 
#1,-(SP) 


SEQ 101 


TEST 4: CARRIAGE POSITIONING TEST 


66 
67 020740 


70 020744 


83 021020 
85 021024 


| 

| 

| 

| 
58 020676 
59 020704 
60 920706 
61 020714 
62 020716 
63 
64 020724 


012737 


013701 
162701 


0 
113760 
012701 


004737 
012701 


104401 


000001 010036 


010036 
000014 


014314 
000001 
010046 002233 
010047 002233 


010050 002233 


015360 
002233 
015360 
006530 
000001 
012632 
015360 
002313 
015360 


010036 
010036 010040 


L1LOOP: 


. 
° 
. 
° 
. 
a 
© 
e 


. SBTTL 


ENDTST 


#1,SPCSIZ 


SPCSIZ,R1 
#12.,R1 


PC, CONVRT 


#1,R 

+ yal te tate 
+ aaa i: ongtangs 
MNEB3 ,HRZTLS(RO) 


ASCX,R1 
#1,R2 

PC, XMIT 
PC, ERRORS 


AHRZTLS,R1 
#5,R 


PC. XMIT 
PC ERRORS 


#SCX,R1 
#1,R 

PC, XMIT 
PC, ERRORS 


#CR,R1 
2,R2 
PC.XMIT 
PC, ERRORS 
SPCSIZ 


SPCSIZ,LINN 
L1LOOP 


; INITIALIZE THE SPACE SIZE TO ITS SMALLEST 


3R1 HAS SPACE SIZE FOR THE CONVERSION ROUTINE 
7 TAKE AWAY THE 12 HORIZONTAL INCREMENTS 
+ PRODUCED BY THE PRINT OF THE CHARACTER. 
CONVERT R1 TO THREE ASCII MNEMONICS (BYTES) 


FIRST BYTE FROM CONVERT ROUTINE 
SECOND BYTE 
THIRD BYTE 


ZADDRESS OF THE CHARACTER ‘x’. 
sLENGTH OF STRING TO BE SENT = 1. 
SEND ‘*X'' TO THE PRINTER 

SCHECK FOR ERRORS 


ADDRESS OF TAB SEQUENCE JUST COMPUTED. 
THERE ARE 5 CHARACTERS IN THE SEQUENCE 
[SEND THE LIST TO THE PRINTER 

; CHECK FOR ERRORS 


zADDRESS OF *'x"' 
SINGLE CHARACTER 
zPRINT *'X"* 

7 CHECK FOR ERRORS 


zsADDRESS OF <CR><LF> 

;TWO CHARACTERS TO = SENT TO PRINTER 
[PRINT THE <CR><LF> 

CHECK FOR ERRORS 


;DOUBLE THE SPACE SIZE 
31S THE SPACE SIZE LARGER THAN THE MAXIMUM? 
IF NOT THAN PRINTING MORE IS OK. 


L10013: 
TRAP CSETST 


TEST 5: PAPER POSITIONING TEST 





SEQ 102 


a 


| TEST 5: PAPER POSITIONING TEST 


—_ -————— 


021042 
021042 


ee ee ee 
AUNFSWNH=ODOONAUE Wr 


pe) 
OOOnN 


21 


48 021150 
49 021154 


004737 
104421 
001027 


012746 


012737 
013701 
004737 


014412 


005260 
000010 


012632 
040000 
000001 


010062 
014314 


BGNTST 


TESTS: 


005260 


006500 


006500 
010062 TSLOT: 
AGN: 


T32¢ 


ae chee SSC Ra aE SREE REPRESS SREE ECE ST RRA FS HAHSSSSAESHFSCSCSERSLECPRAES CEC CAE SS cCerrrey Ss 


TEST #5 
PAPER POSITIONING TEST 


IN THIS TEST THE VERTICAL PAGE MOVEMENT CAPABILITIES OF THE PRINTER 
ARE EXERCISED. A LINE OF DASHES WILL BE PRINTED BETWEEN EACH VERTICAL 
CARRIAGE MOVEMENT SO THAT THE PATTERN CAN BE DETECTED BY THE USER. 
IN EACH LOOP THROUGH THE PRINTING CYCLE OF THIS TEST, THE VERTICAL 
INCREMENT OF MOVEMENT WILL BE DOUBLED. THE LINES OF DASHES WILL THUS 
pS nl AS FAR APART AS EACH PASS THROUGH THE PRINTING CYCLE IS 

L ° 


JSR PC, INITCD INITIALIZATION CODE 

RFLAGS FLAGS READ START TIME SUPERVISOR FLAGS 
TRAP CSRFLA 
MOV RO,FLAGS 

BIT A#LOT,FLAGS WAS THE LOOP ON TEST FiAG SET? 

BNE T5LOT SKIP PRINT OF TEST TITLE IF ‘LOT"’. 

PRINTB A#TITLES CONSOLE PRINT OF THE TEST TITLE. 
MOV ATITLES,-(SP) 
MOV #1,~(SP) 
MOV SP,RO 
TRAP C$PNTB 
ADD #4 ,SP 

BIS #BIT14,ERWORD ;DISABLE ERROR HANG~UPS 

MOV #TITLES,R1 zADDRESS OF THE TITLE TO BE PRINTED 

ADD #4,R1 SKIP FIRST FOUR CHARACTERS. 

MOV #44, ,R2 743 CHARACTERS IN THE TITLE 

CLR 3 DISABLE BIDIRECTIONAL PRINTING 

JSR PC, XMIT SEND THE TITLE SEQUENCE TO THE PRINTER. 

BIC #BIT14,ERWORD ;RE-ENABLE THE ERROR HANG-UPS. 

MOV #1,LINCNT sLINEFEED SIZE IN 1/48 INCH INCREMENTS. 

MOV LINCNT,R1 7A NUMBER FOR CONVERSION TO ASCII MNEMONICS 

JSR Pc, CONVRT CONVERT NUMBER IN R1 TO THREE MNEMONIC BYTES 


SEQ 103 


BE Sa er eee Poe 


SEQ 104 
TEST 5: PAPER POSITIONING TEST 
50 021160 012700 000001 MOV #1,R0 
2} 021 16% 113760 010046 002226 ae MNEBI . VRTCLS(RO) : TRANSFER MNEMONICS INTO ARGUMENT 
§3 021174 113760 010047 002226 MOVB MNEB2,VRTCLS(RO) ; LIST SLOTS IN THE 
54 021202 005200 INC R 
e 021206 113760 010050 002226 MOVB MNEB3,VRTCLS(RO) ; ESCAPE SEQUENCE. 
57 021212 012701 002226 MOV AVRTCLS,R1 sADDRESS OF VERTICAL SPACING ARGUMENTS 
58 021216 012702 000005 MOV #5,R2 THERE ARE 5 CHARACTERS : ESC NNN 9Q 
23 021222 004737 012632 JSR PC,XMIT SEND TO PRINTER. 
61 021226 012701 006542 MOV ADASHES,R1 zADDRESS OF THE | DASHES 
62 Uzi232 012702 000013 MOV #11.,R2 :TEN DASHES & L 
63 021236 004737 012632 JSR PC,XMIT ‘SEND TO BRINTER 
o 021242 004737 015360 JSR PC, ERRORS ;CHECK FOR ERRORS 
66 021246 006337 010062 os ASL LINCNT DOUBLE LINEFEED SIZE 
67 021252 023727 010062 002000 CMP LINCNT ,#MXLF :TOO LARGE A LINEFEED YET 
3 021260 100733 BMI AGN : IF NOT REPEAT PRINT SEQUENCE. ELSE- EXIT TEST. 
70 021262 ’ ENDTST 
021262 L10014: 
i. 021262 104401 TRAP CSETST 
72 
73 
74 
75 ; 
76 : 
77 : 
78 


79 .SBITL TEST 6: PRINT ONE LINE OF EACH CHARACTER 


| TEST 6: PRINT ONE LINE OF EACH CHARACTER 
} 
| 


: 
: 
& 021264 BGNTST 
| ; 921264 T6:: 
5 
7? 
| . 
aed : 
10 PUCPECP OPPO UPD ORUOCOP PCCP EP PPPOE PrP e terre Peeerierrrrrerrerrereriregereces 
11 : 
12 : TEST #6 
1 : PRINT ONE LINE OF EACH CHARACTER 
16 : IN THIS TESS ONE LINE OF EACH CHARACTER WILL BE PRINTED FOR THE 
17 : ENTIRE PRESET PAGE WIDTH. PRINTER DETECTED ERRORS WILL BE DETECTED 
18 ; CLASSIFIED. 
19 3 
20 é eeseeeeeerseeeeeeeeees Seeeseweseeeseeseseeeeeeeeereeeeeseseeeeeeeeeeeeeeeeeeeeeeee 
21 
22 
st 
25 021264 004737 014412 TEST6: JSR PC, INITCD ZINITIALIZATION FOR TEST 
27 021270 RFLAGS FLAGS :READ START TIME SUPERVISOR FLAGS 
021270 104421 TRAP CSRFLA 
021272 010037 005260 MOV RO, FLAGS 
28 021276 032737 000010 005260 BIT ALOT. FLAGS :WAS THE LOOP ON TEST FLAG SET? 
021 001027 BNE T6LOT :SKIP PRINT OF TEST TITLE IF ‘LOT’. 
31 021306 PRINIB #TITLE6 :CONSOLE PRINT OF THE TEST TITLF. 
21 012746 002645 MOV #TITLE6,-(SP) 
021312 012746 000001 MOV #1,-(SP) 
021316 010600 MOV SP,.RO 
021320 104414 TRAP = C$PNTS 
_ 021322 062706 000004 ADD #4 ,SP 
33 021326 052737 040000 006500 BIS #BIT14,ERWORD ;DISABLE ERROR HANG-UPS 
34 021334 012701 002645 MOV aTITLES, R1 *ADDRESS OF THE TITLE 
35 021340 062701 000004 ADD *SKIP FIRST FOUR CHARACTERS 
021344 012702 000053 MOV wi3. Ra 743 CHARACTERS IN THE TITLE 
37 021350 00500 CLR *DISABLE BIDIRECTIONAL PRINTING FOR THE MOMENT 
38 021352 004737 012632 JSR Pe. XMIT *PRINT THE TITLE 
3 021356 042737 040000 006500 BIC #B1T14,ERWORD :ENABLE DESIRED ERROR HANG-UPS. 
41 021364 012703 177777 T6LOT: MOV #-1,R3 ; ENABLE BIDIRECTIONAL PRINTING 
42 021370 005004 CLR R4 [NO LINES YET PRINTED 
43 021372 005037 010064 LINLO6: CLR CHRCNT *NO CHARACTERS YET PRINTED 
és 021376 010401 CHRLO6: MOV R4,R1 :GET OFFSET 
46 021400 062701 006555 ADD #CHRLST,R1 ‘POINT TO DESIRED CHARACTER IN CHAR LIST. 
47 021404 012702 000001 MOV #1,R2 :JUST THE ONE CHARACTER TO PRINT 
48 021410 004737 012632 JSR PC, XMIT 7SEND THE CHARACTER 
49 021414 004737 015360 JSR PC ,ERRORS *CHECK FOR ERRORS 





SEQ 105 


TEST 6: PRINT ONE LINE OF EACH CHARACTER 


| 50 
| 51 021420 
52 021424 
| 53 021432 
54 
55 021434 
56 021436 
57 021442 
58 


59 021444 
021444 
021444 


005237 


023737 010064 010042 
100761 


005204 
020427 
100753 


104401 


010064 


000136 


. SBTTL 


C 
INC CHRCNT 
CMP CHRCNT ,LINSIZ 
BMI CHRLO6 
INC R4 
CMP R4,A94. 
BMI LINLO6 
ENDTST 


;KEEP TRACK OF THE CHARACTERS PRINTED 
HAS A FULL LINE BEEN:PRINTED YET? 
IF NOT THEN PRINT UNTIL TRUE. 


KEEP TRACK OF THE LINES PRINTED 
396 LINES PRINTED? (ALL CHARACTERS?) 
zIF NOT YET, MORE LINES TO PRINT. 


L10015: 
TRAP 


TEST 7: PRINT A SWIRL PATTERN 


CSETST 


SEQ 106 


_— 


021446 
021446 


Non) a = eS 2 oo oO Oe 


021446 


021452 
021452 
021454 
021469 
021466 


021470 


MO DODWNAWUSWRH-ODOANAW FW 


mn 
Ww 


2 
021540 


021546 
021552 


021554 


2 
021572 


46 021576 
47 021600 
48 021602 
49 021606 


012746 
012746 
010600 
104414 
062706 


052737 


TEST 7: PRINT A SWIRL PATTERN 


014412 


005260 
000010 


002725 
000001 


012632 
040000 


177777 


010042 


005260 


006500 


006500 


BGNTST 


T7LOT: 


NXTLIN: 


is 


TEST #7 


PRINT A SWIRL PATTERN 


IN THIS TEST, A SWIRL PATTERN IS PRINTED BY SENDING THE SEQUENCE 


7:3: 


SE CHASER BSCEH APES EBEPECBVPSE eC SC CARBD CC HE SEES 


OF CHARACTERS IN THE CHARACTER LIST AND INCREMENTING THE STARTING 
POINT IN THAT LIST SO THAT THE SEQUENCE STARTS AT A DIFFERENT 
CHARACTER EVERY LINE. 


JSR 
RFLAGS 
BIT 
BNE 
PRINTB 


PC, INITCD 
FLAGS 


#LOT,FLAGS 
T7LOT 


ATITLE7 


#B1T14,ERWORD 
ATITLE?,R1 


#4 ,R1 

#32. ,R2 

R3 

PC,XMIT 

#B1T14,ERWORD 

#-1,R3 

R4 

R4,R1 

#CHRLST,R1 

LINSIZ,R2 

PC, XMIT 

PC, ERRORS 

R1,R5 

R 

LINSIZ,R1 
5,R1 


INITIALIZE THE TEST 
READ START TIME SUPERVISOR FLAGS 
TRAP 


WAS THE LOOP ON TEST FLAG SET? 
SKIP PRINT OF TEST TITLE IF ‘LOT’’. 


:CONSOLt PRINT THE TITLE 


; INHIBIT ERROR HANG-UPS 

sADDRESS OF THE TITLE TO BE PRINTED 
SKIP 1ST 4 CHARACTERS. 

332 CHARACTERS INVOLVED 

DISABLE BIDIRECTIONAL PRINTING FOR NOW. 
SEND TO PRINTER 

ENABLE ERROR HANG-UPS 


ENABLE BIDIRECTIONAL PRINTING 
NO LINES ARE PRINTED YET 


C$RFLA 
RO,FLAGS 


tte LF pelea 


#4 SP 


OFFSET 
zADDRESS OF CHARACTER TO BE PRINTED. 
LENGTH OF LINE. PRINT A LINES WORTH 


7 TRANSMIT THE LINE TO THE PRINTE 
CHECK FOR ERRORS 


ADDRESS OF LAST CHARACTER FOR PRINTING. 
; POINT ONE FURTHER FOR SWIRL EFFE 


R 


47 


‘POINT TO THE FIRST CHARACTER TO BE PRINTED+1. 


SEQ 107 


—-— eS 
a 


TEST 


: PRINT A 


021610 
021622 


021626 
021630 


021632 


021644 
021644 


SWIRL PATTERN 


005301 


020501 
100767 


062704 
020427 
100744 


104401 


000001 
012632 
015360 


000002 
000036 


REVRSP: DEC 
MOV 


- SBTTL 


JSR 
JSR 


CMP 
BMI 


ADD 
CMP 
BM] 


ENDTST 


PC, XMIT 
PC,ERRORS 


R5,R1 
REVRSP 


NXTLIN- 


POINT TO THE NEXT CHARACTER TO BE PRINTED. 
;TELL XMIT THAT A SINGLE CHARACTER PRINTED. 
7SEND THE CHARACTER. (REVERSE PRINT) 

;CHECK FOR ERRORS. 


PRINTED ENOUGH CHARACTERS YET IN REVERSE? 
PRINT NEXT REVERSE CHAR. 
DONE WITH REVERSE PRINT. 
KEEP TRACK OF THE NUMBER OF LINES PRINTED 


sFIFTEEN LINES PRINTED YET THIS PASS? 
jIF DONE, EXIT TEST 


L10016: 
TRAP CSETST 


TEST 8: WORST CASE RAPID MOTION TEST 


SEQ 108 


TEST 8: WORST CASE RAPID MOTION TEST 


921646 
021646 


CONO NEW - 


ed 8 ne a a et = od = Ls 
MHD OWNAMFSWN-O 


3 
24 021646 


26 021652 
021652 


38 021740 
40 021746 


49 021776 


004737 


001027 


012746 
012701 
012703 

004 


005 
013705 
006205 


012701 


014412 


005260 
000010 


002772 
000001 
000004 
040000 

2 


000047 


012632 
040000 


177777 
010042 


005260 


006500 


BGNIST 


TEST8: 


T8LOT: 


LOOPS: 


T8:: 
POCO CUD OOOO Perce ee peepee errr ee eee ere enegiggy 

TEST #8 

WORST CASE RAPID MOTION TEST 

THIS TEST WILL PUT THE PRINT WHEEL THROUGH A MECHANICALLY STRESSFUL 

SITUATION BY REPEATEDLY PRINTING THE SEQUENCE ‘‘ACA 

JSR PC, INITCD s INITIALIZE TEST 

RFLAGS FLAGS :READ START TIME SUPERVISOR FLAGS 
TRAP  — C$RFLA 
MOV RO, FLAGS 

BIT #LOT, FLAGS WAS THE LOOP ON TEST FLAG SET? 

BNE T8LOT ‘SKIP PRINT OF TEST TITLE IF ‘LOT’’. 

PRINTB #TITLE8 =CONSOLE PRINT TEST TITLE 
MOV #TITLES, -(SP) 
MOV #1,-(SP 
MOV SP.RO 
TRAP  C$PNTB 
ADD #4,SP 

BIS #B1T14,ERWORD ;:DISABLE ERROR HANG-UPS 

MOV #TITLE8,RI ‘ADDRESS OF TITLE 

ADD #4,R1 ‘SKIP FIRST 4 CHARACTERS 

MOV #39. ,R2 *39 CHARACTERS 

CLR R3 ‘NO BIDIRECTIONAL PRINTING FOR NOW 

JSR PC,XMIT ‘SEND TO PRINTER 

BIC #B1T14,ERWORD :ENABLE ERROR HANG-UPS 

MOV #-1,R3 : ENABLE aBIDIREC TONAL PRINTING 

CLR R “COUNT OF ‘'ACA:'* BLOCKS 

MOV LINSIZ,R5 “A OF CHARACTERS PER LINE 

ASR R5 SLINSIZ/2 : 1 BLOCK = 4 CHARACTERS... 

: PRINT 2 LINES AT NEW LINE SIZE 

MOV #ACAS,R1 ZADDRESS OF SEQUENCE 

MOV #4,R2 ‘OF 4 CHARACTERS... 

JSR PC-XMIT ‘SEND TO PRINTER 

JSR PC“ ERRORS CHECK FOR ERRORS 


SEQ 109 


—— 


SEQ 110 
TEST 8: WORST CASE RAPID MOTION TEST 
0 
022002 005204 INC R4 
022004 020405 CMP R4,R5 ENOUGH BLOCKS PRINTED?? 
Z 022006 100765 BM! LOOP8 IF NO, LOOP TO PRINT NEXT BLOCK... 
022010 ENDTST 
022010 10017: 
022010 104401 : TRAP CSETST 


.SBITL TEST 9: PRINT RANDOM CHARACTERS 


TEST 9: PRINT RANDOM CHARACTERS 


022012 
022012 


NOUN EWU HO OONAWE Wh 


at ot os 


004737 


104421 
005260 
000010 
001027 


012746 003046 


000001 


0 
022059 
022054 


000004 
040000 
6 


012632 
040000 


010042 


022122 
: 022124 
yf 022130 
49 022134 


010064 
015040 


2 
$3 022012 
26 022016 
022016 
022020 
27 022024 
28 022032 
ey 
30 
31 
32 
33 
35 
37 
39 
40 
006555 


014412 


005260 


006500 


006500 


BGNTST 


TEST 


T9:: 


Ce ee. ae ee ee Ceo ee we eR OA ESO OS SEES OSE HOSS FOSS OES Bee ee ee ee ee 


a9 
PRINT RANDOM CHARACTERS 


THIS TEST WILL PRINT A RANDOM SEQUENCE OF CHARACTERS ON THE 


PRINTER 


TESTS: 


TOLOT: 


PLOOP9: 


JSR 
RFLAGS 
BIT 
BNE 
PRINTB 


PC, INITCD 
FLAGS 
#LOT,FLAGS 
TOLOT 
ATITLES 


#B1T14,ERWORD 
AR ial 


R 
PC ,XMIT 
#81114, ERWORD 


LINSIZ,R5 
R5 


R5 
R5 


CHRCNT 


~ PC, RANDOM 


#CHRLST,R1 


INITIALIZE TEST 
READ START TIME SUPERVISOR FLAGS 
TRAP CSRFLA 
MOV RO,FLAGS 
WAS THE LOOP ON TEST FLAG SET? 
;SKIP PRINT OF TEST TITLE IF es 


;CONSOLE PRINT TITLE 


MOV #TITLE9,-(SP) 
MOV #1,-(SP) 

MOV SP,RO 

TRAP C$PNTB 

ADD #4 ,SP 


7DISABLE ERROR HANG-UPS 
sADDRESS OF TITLE 

[SKIP 1ST 4 CHARACTERS 

734 CHARACTERS IN THE TITLE 
[DISABLE BIDIRECTIONAL PRINTING 
SEND TO PRINTER 

TENABLE ERROR HANG-UPS 


GET THE LINE SIZE 


ZLINE SIZE * 2 
LINE SIZE * 4 
sLINE SIZE * 8 
; TO PRINT 8 LI 


NES WORTH 
3NO CHARACTERS PRINTED YET 
;RANDOM NUMBER (0 = 99) INTO 81 
ADDRESS FOR THIS PRINT 


SEQ 1117 


SEQ 112 
TEST 9: PRINT RANDOM CHARACTERS 


50 022140 012702 000001 MOV #1,Re SINGLE CHARACTER 

51 022144 012703 177777 MOV #-1,R3 ;BIDIRECTIONAL PRINTING. 
52 022150 004737 012632 JSR PC,XMIT ;SEND TO PRINTER 

a 022154 004737 015360 JSR PC,ERRORS CHECK FOR ERRORS. 


5 

55 022160 005237 010064 INC CHRCNT KEEP TRACK OF THE NUMBER OF CHARACTERS 
56 022164 023705 010064 CMP CHRCNT ,R5 sEIGHT LINES YET? 

57 022170 100757 BMI PLOOP9 3NO,LOOP UNTIL DONE 


58 
59 022172 ENDTST 
022172 


L10020: 
022172 104401 


TRAP CSETST 


fea) 
Oo 
Be te & & ee. 


72 -SBTTL TEST 10: LIFT / DROP RIBBON BY OPERATOR CONTROL 


| TEST 10: 


— od sd ws ot I ot et 


AWWW NofPononongnyghry 
BPUNeye Y BUKGRUVUVSSRVRARWN=COMNOUR Wr 


022174 
022174 


022174 


022224 
022226 


022242 
022246 


022276 


LIFT / DROP RIBBON BY OPERATOR CONTROL 


022402 
014412 


005260 


000010 005260 


003264 
000001 
000004 


040000 
003264 
000004 


000060 


006500 


012632 
040000 006500 


BGNTST 


TESTB: 


TBMANB : 


Ce SRShSESSSCPSSE TSC SCSCSEKSCR PSPS RSHKECHTSEHSRAE CEE ES 


TEST #10 


TW: 


LIFT / DROP RIBBON BY OPERATOR CONTROL 


THIS TEST WILL EITHER ENABLE THE USER TO MANUALLY LIFT AND 

DROP THE PRINTER RIBBON OR IT WILL LIFT AND DROP THE PRINTER 
RIBBON AUTOMATICALLY. 
BY PUSHING THE RETURN KEY AFTER SELECTING THE MANUAL MODE. 
THE AUTOMATIC MODE IS SELECTED BY THE USER, THEN THE RIBBON LIFTS 
AND DROPS TEN TIMES AT A RATE OF ABOUT ONCE PER SECOND. 


MANUAL 


BCOMPLETE TBMANB 


JMP 
JSR 
RFLAGS 
Bu 
PRINTB 


EXIT 
PC, INITCD 
FLAGS 


#LOT,FLAGS 
TBLOT 


ATITLEB 


#81114, ERWORD 
ATITLEB,R1 


#4,R1 
#48, .R2 
R3 


PC, XMIT 
#81114, ERWORD 


THE USER LIFTS AND DROPS THE RIBBON 


MANUAL INTERVENTION PERMITTED? 


TRAP 
DO TEST IF MANUAL INTERVENTION So alls 2 


SKIP TEST IF UNATTENDED MODE SET. 

TEST INITIALIZE 

READ START TIME SUPERVISOR FLAGS 
TRAP 


MOV 
WAS THE LOOP ON TEST FLAG SET? 
ySKIP PRINT OF TEST TITLE IF ‘LOT’. 


=CONSOLE PRINT TITLE 


DISABLE ERROR HANG-UPS 
ADDRESS OF TEST TITLE 

SKIP 4 CHARACTERS 

748 CHARACTERS TO BE PRINTED. 
NO BIDIRECTIONAL PRINTING 
SEND THE TEST TITLE 

ENABLE ERROR HANG-UPS 


ECSHESESPPABTAGCCESCHR ACE A CHEE EE DE EF 


ee ee 


CSMANI 


CSRFLA 
RO,FLAGS 


dh daa 


SEQ 113 


—_—_———_— 


SS SS SS SSS 


66 022370 
67 022374 
68 
69 022376 
70 


71 022402 
022402 
022402 


LIFT / DROP RIBBON BY OPERATOR CONTROL 


912701 
012702 
005003 


500 
004737 
012701 


123737 
001403 


004737 
000402 
004737 


104401 


002303 
000005 


012632 
002310 
000003 


012632 


010030 006531 


022524 


022404 


TBLOT: 


AUTCAL : 
EXIT: 


JSR 
ENDTST 


A#SETHTO,R1 
R2 


ASETCHO,R1 
#3,R2 


R3 
PC. XMIT 


3SET_HIT COUNT TO ZERO 

[FIVE CHARACTER STRING SENT TO PRINTER 

iN eyes LOGIC REQUIRED. 
;SEND TO PRINTER 


SET CHARACTER SIZE TO ZERO. 
TARGUMENT LIST IS 3 CHARACTERS LONG. 
INO BIDSIRECTIONAL LOGIC REQUIRED. 
SEND TO PRINTER. 


OPTN1,BFRB,A,0,1,72.,YES 


BFRB,SCA 
AUTCAL 


PC ,MANLD 
EXIT 


PC ,AUTOLD 


TRAP C$ 

BR 10000$ 
«WORD BFRB 
«WORD TS$CODE 
«WORD OPTNI 
«WORD 0 

«WORD TS$LOLIM 
«WORD TSHILIM 


10000$: 
zASK USER TO CHOOSE AUTO OR MANUAL MODE. 


7 IF CHARACTER IS *‘A'' THEN AUTO MODE CHOSEN 
7SO0 CALL LOCAL ROUT INE TO HANDLE AUTO MODE 


; OTHERWISE, Tes IS CHOSEN..... 
DO MANUAL LIFT / DROP. 
TEXIT TEST WHEN DONE 


3DO AUTOMATIC MODE LIFT / DROP. 


L10021: 


TRAP CSETST 


SEQ 114 


> 


TEST 10: LIFT / DROP RIBBON BY OPERATOR CONTROL 

: 

beasieac ss Eearaigtyagernenenioanareatensanetineninnennsinenaaioascencinnents 
2 : TEST #10 

: : LOCAL PROCEDURE AUTOLD 

b : AUTOMATIC MODE OF RIBBON LIFT AND RIBBON DROP. 

11 Ft a ads a damsning seenaasbardehtiade cadens nehheronnasdenenteqanes 
12 ; 

13 : INPUTS 

14 ; 

15 ; NONE 

16 : 

17 —* 

18 

ih ; NONE 
21 “FUNCTIONAL SIDE EFFECTS 

23 : THE PRINTER RIBBON WILL LIFT/DROP AUTOMATICALLY. 

25 ‘CALLING SEQUENCE 

27 : JSR PC,AUTOLD 

28 ; 

29 ; 

31 022404 005037 010066 AUTOLD: CLR CCOUNT =: COUNT OF CYCLES (LIF T/DROP) 

32 022410 012700 000001 AUTOLE: MOV #1,R0 :POINT TO POSITION PARAMETER 

33 022414 112760 000040 002240 MOVB  #ZERO, RIBPOS(RO) ‘RIBBON UP ARGUMENT LIF T/DROP 
34 022422 012701 002240 MOV #RIBPOS ,R1 ‘ADDRESS OF ARG LIST PME nas 
35 022426 012702 000004 MOV #4 Re gn ee Ft ree 
36 022432 004737 012632 JSR PC. XMIT SSEND TO PRINTER = teens 
3 022436 004737 015360 JSR PC ERRORS ;CHECK FOR ERRORS. te ee eves 
39 022442 012705 001750 MOV #1000. ,R5 DELAY TIME IN R1 FOR DELAY ROUTINE. ..... 
40 022446 737 015336 JSR PC DELAYS ;PERFORM DELAY OF ABOUT 1 SECOND. =... 
42 022452 012700 000001 MOV #1,R0 :POINT TO THE RIBBON POSITION PARAMETER |... 
43 022456 112760 000041 002240 MOVB ONE RIBPOS(RO) :LOWER THE RIBBON. are 
44 022464 012701 002240 MOV #RIBPOS ,R1 ARGUMENT LIST ADDRESS. = 2 — eeeee 
45 022470 012702 000 MOV #4 ,R2 et ed | * Beane een ees 
46 022474 005003 CLR R3 :B1DIREC TIONAL Ta)... rn 
47 022476 004737 012632 JSR PC, XMIT SEND SEQUENCE TO PRINTER. 9 cececueee 
48 022502 004737 015360 JSR PC ERRORS Be eR tl eg main a: gn) eae ai 

50 022506 005237 010066 INC CCOUNT SKEEP COUNT OF CYCLES SO FAR... cerctsece 

51 022512 023727 010066 000024 CMP CCOUNT #20. “LOOP TEN TIMES FOR TEN LIFT / DROP CYCLES. 
32 022520 10073 BM! AUTOLE ‘LOOP UNTIL TEN LOOPS DONE. E 
24 022522 000207 RTS PC 

56 

57 


SEQ 


115 


TEST 10: 


LIFT / DROP RIBBON BY OPERATOR CONTROL 





SEQ 116 


| 
“test 


10: 


NOME WN-OVOONAU EWR 


Soke +) 


<8 


37 
38 occeee 


39 
40 
41 
42 022564 
43 022572 


012746 003466 
012746 000001 
010600 
104414 


062706 000004 


104443 
000406 
Bas 
000152 
004531 
000000 
000001 
000072 


123737 
001417 





010032 006525 





FUNCTIONAL DESCRIPTION 
TEST #10 
LOCAL PROCEDURE MANLD 
Matick 080 PF ge SE FR ol Eel ET 


$ THE <RETURN> KEY. IF A ‘‘Q"' (’ QRACTER IS — BEFORE THE 
<RETURN> KEY IS HIT THEN THE .cST IS STOPPED 


; FUNCTIONAL SIDE EFFECTS 

THE RIBBON WILL LIF T/DROP BY OPERATOR CONTROL. 
: CALLING SEQUENCE 

JSR PC .MANLD 


PRINTB 1 #PRMPTC PROMPT INSTRUCTIONS 47 CONSOLE 


MANLE: GMANID NPRMPT,BFRC,A,0,1,72,YES 


10000$: 
7 INPUT <RETURN> OR Q <RETURN> 


#PRMPTC ,-(SP) 
#1,-(SP) 

SP RO 

CSPNTB 

#4 ,SP 


CSGMAN 
10000$ 
BF RC 

TSCODE 
NPRMPT 


0 
TSLOLIM 
TSHILIM 


7<RETURN> MEANS TO CHANGE RIBBON POSITION 


3Q <RETURN> MEANS TO EXIT TEST. 
71S THE CHARACTER A *0Q"* ? 
SO ~ EXIT TEST. 


CMPB 
BEQ ExITi} iF 


SEQ 117 


r--s- Cr + 


| TEST 10: 
| 
| 64 
| 65 022576 
| 46 022600 
| 022606 
48 O2e612 
51 022624 
52 
53 022630 
ers 
55 022632 
56 


5° 
58 


LIFT / DROP RIBBON BY OPERATOR CONTROL 


002240 


EX]T11: 


* SBITL 


RTS 


TEST 11: 


SEQ 118 
#1,R0 
#ZERO,RiBPOS (RO) ARGUMENT FOR LIFT RIBBON 
#RIBPOS,R1 ADDRESS OF ARGUMENT LIST 
#4,R2 74 ARGUMENT CHARACTERS IS LIST 
R3 :DON'T BOTHER WITH BIDIRECTIONAL PRINTING CODE 
PC, XMIT ;SEND ARGUMENT LIST TO PRINTER 
PC,ERRORS CHECK FOR ERRORS. 
MANLD jREPEAT UNTIL A ‘'Q"’ IS FOUND IN THE BUFFER 


PC 


PRINT OPERATOR SELECTED CHARACTERS 


—~ 3 ot es os I Ot et 
DOONAN EWNHOVDDWVNAUEW Ww 


39 
40 


022634 
022634 


022644 


022746 


PRINT OPERATOR SELECTED CHARACTERS 


104450 


103402 
000137 


004737 


012746 


023054 
014412 


003715 
000001 


oy 006500 


012632 
040000 006500 


BGNTST 
W113: 
SOROOUHAUEREPAUUCCOPYELOOEEOR EEE CGSSEC OUP Se Eee gg eereeecen esse ea sees see ss 
: TEST #11 
: PRINT OPERATOR SELECTED CHARACTERS /JOPTIONAL SPECIAL TEST 
: THIS OPTIONAL TEST WILL PRINT CHARACTER SEQUENCES SELECTED BY THE 
; OPERATOR ONE LINE AT A TIME. 
TESTA: MANUAL sMANUAL INTERVENTION PERMITTED? 
TRAP CSMANI 
BCOMPLETE TAMAN :DO TEST IS MANUAL INTERVENTION SET. 
BCS TAMAN 
JMP EXITA sMANUAL NOT OK = DON'T DO THIS TEST. 
TAMAN: JSR PC, INITCD sTEST INITIALIZE 
PRINTR #TITLEA ; CONSOLE PRINT TITLE 
MOV #TITLEA,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP C$PNTB 
ADD #4,SP 
BIS #B1T14,ERWORD :DISABLE ERROR HANG-UPS 
MOV #TITLEA,R1 sADDRESS OF TITLE 
ADD #4,R1 sSKIP 4 CHARACTERS 
MOV #46. ,R2 +46 CHARACTERS IN THE TITLE 
CLR R3 ‘DISABLE BIDIRECTIONAL PRINTING 
JSR PC ,XMIT :SEND TO PRINTER 
BIC #Bi1T14,ERWORD S ENABLE ERROR HANG-UPS 
LOOPS: GMANID PRMPTA,BFRA,A,0,1,72.NO 
TRAP C$ 
BR 10001$ 
.- WORD BFRA 
.~ WORD TSCODE 
~WGRD PRMPTA 
.~ WORD 
.~WORD TSLOLIM 
- WORD TSHILIM 
10001$: 
;PROMPT AT CONSOLE AND INPUT STRING. 
CLR RG sR4 IS OFFSET IN INPUT STRING 


SEQ 119 


| TEST 


71 
72 
it 


se 


022750 


022754 
022756 


022772 
022776 
023000 
023006 
023010 


023050 
023052 
023054 


023056 
023956 
023056 


PRINT OPERATOR SELECTED CHARACTERS 


105764 


001011 
012701 


126437 
001006 


005204 
126427 
001415 
005304 


012701 
06 


004737 


007352 


002313 
000002 
012632 
015360 


007352 


007352 


007352 
000001 


012632 
015360 


006525 


000000 


NXTA: 


TFCZ: 


NOTQ: 


EXITA: 


» 7? 
.SBITL 


TSTA 


TEST 12: 


BFRA(R4) 


PC -ERRORS 
1. OOPA 


BFRA(RG) ,STO 
NOTO 


as 
BFRA(RG) ,#0 
EXITA 

RG 


#BFRA,RI 
R4,RI 

#1 ,R2 

R3 

PC, XMIT 
PC ERRORS 


R64 
NXTA 


31S THE BYTE A ZERO? GMANID IS EXPECTED TO 
: SEND A ZERO AS THE LAST BYTE. THIS WILL 
; INDICATE THE END OF THE INPUT STRING. 

NOT ZERO. CHECK FOR CTL=2 


ZADDRESS OF CARRIAGE RETURN = LINEFEED 
;TwO BYTES TO SEND 

SEND THE STRING 

CHECK FOR ERRORS. 


;BACK TO PROMPT... 


. 7" 9 


Is, ere FOR <RETURN> 


1S IT 
SIF IT 
;CHECK NEXT BYTE FOR ZERO. 
;1S THE BYTE A ZERO? 

;1F IT IS THEN EXIT TEST 

;1F NOT ZERO THEN NOT RETURN 
;AND NOT YET THE END. 


sPRINT THE CHARACTER 
AS R4 POINTS THROUGH THE LIST. 
TONE CHARACTER TO PRINT. 
[NOT BIDIR. PRINTING. 
;SEND TO PRINTER. 
TCHECK FOR ERRORS. 


POINT TO NEXT CHARACTER 
[REPEAT TILL END OF STRING FOUND. 


10022: 
TRAP CSETST 


BIDIRECTIONAL FORMS TRACTOR TEST 


SEQ 120 


a nt es et ns 
OCVUDBNAWUEWNH-ODONAWY FWwh-- 


mnron 
= 


23 023062 


023110 
29 023114 
30 


35 023144 
37 023152 


023172 


in) 
Os 
Oo 
ae) 
W 
oO 
~N 
o 


BIDIRECTIONAL FORMS TRACTOR TEST 


104450 


103402 
000137 


004737 
072746 


pigs 


023342 
014412 


003717 
000001 


040000 006500 


012632 
040000 006500 


BGNTST 


etta¢ 


E 10 


Tt23: 
SPCR TPITHSPRTAVITOR CECT PETES ECE PAPEL ESTEE ES TPCT EET eee eee eee sere reese: 
TEST #12 
BIDIRECTIONAL FORMS TRACTOR TEST /OPTIONAL SPECIAL TEST 
THIS TEST WILL PRINT A TEN BY TEN ARRAY OF ASCII CHARACTERS 
IN A RANDUM ORDER ON THE PRINTER. THE TEST WILL NOT- OVERPRINT 
ANY LOCATIONS IN THE ARRAY. THIS TEST SHOULD EXERCISE BOTH UP 
ty hg CARRIAGE MOTION AS WELL AS FORWARD AND BACKWARD CARRIAGE 
MANUAL sMANUAL INTERVENTION PERMITTED? cone 
SCOMPLETE TCMAN 7DO TEST IF MANUAL INTERVENTION OK. 
BCS TCMAN 
JMP ENDC SOTHERWISE, EXIT TEST. 
JSR PC. INITCO sTEST INITIALIZE 
PRINTR #TITLEC :CONSOLE PRINT TITLE OF TEST 
MOV #TITLEC,-(SP) 
MOV #1,-(SP) 


MOV SP ,RO 
TRAP CSPNTB 


ADD #4 ,SP 

8I1S #81714, ERWORD ; TEMPORARILY SUSPEND ERROR HANG=-UPS 

MOV @TITLEC,R) sADDRESS OF TITLE TO PRINT 

ADD 44 ,R1 :SKIP 4 CHARACTERS 

MOV #39, ,.R2 ; 

CLR R3 : 

JSR PC XMIT sPRINT TITLE 

BIC #85714, ERWORD ZREINSTATE ERROR HANG=UPS 

GMANID 1117PMT,BFRD,A,0,1,72.,YES 
TRAP C$GMAN 
BR 100008 
WORD BF RD 
«WORD TSCODE 
«WORD T1 
.- WORD 0 
~ WORD TSLOLIM 
«WORD TSHILIM 

100008: 


SEQ 121 


SEQ 122 
TEST 12: BIDIRECTIONAL FORMS TRACTOR TEST 
41 
Se ; 
‘> ; CLEAR ALL TABLE UNIQUENESS INDICATORS. 
s P 
45 923172 912700 005262 MOV #BASET RO GET THE BASE ADDRESS OF THE VECTOR TABLE 
46 023176 062700 000005 CLEART: ADD #5,R0 r SPOINT TO THE UNIQUENESS INDICATOR. 
4? 023202 105010 CLRB ard sCLEAR THE UNIQUENESS INDICATOR. 
48 023206 005200 INC RO *POINT TO THE NEXT TABLE ENTRY. 
49 023206 020027 006412 CMP RO, @FRONT 31S IT POINTING BEYOND THE TABLE? 
50 023212 100771 BM] CLDART ‘REPEAT LOOP UNTIL ALL UNIQUENESS INDICATORS 
$1 ; ARE CLEARED. 
32 
53 
2 ;VECTOR TABLE READY TO USE. 
56 
57 023214 005037 010066 CLR CCOUNT ; COUNT CHARACTERS PRINTED 
58 023220 004737 015040 PLOOPC: JSR PC RANDOM GET A RANDOM NUMBER (0 - 99) INTO R1 
z 023224 010104 MOV R1,R4 :PuT INTO R4& FOR THE PRARCH ROUTINE. 
61 023226 004737 023344 JSR PC, PRARCH PRINT THE CHARACTER IN ITS 
66 "; CORRESPONDING POSITION. 
64 023232 005237 010066 ; INC CCOUNT KEEP TRACK OF THE COUNT OF CHARACTERS. 
65 023236 023727 010066 000144 CMP CCOUNT #100. :DONE WHEN 100 HAVE BEE PRINTED. 
% 023244 100765 BM] PLOOPC SREPEAT UNTIL DONE. 
68 023246 012701 002313 MOV #CR,RI PRINT A CARRIAGE RETURN AND SOME LINE FEEDS. 
69 023252 012702 000002 MOV #2,R2 3 
70 023256 005003 CLR RB 
4 023260 004737 012632 JSR PC, XMIT :<CR><LF > 
73 023264 012701 002314 MOV LF RI SEVERAL LINE FEEDS... 
74 023270 012702 000001 MOV #1,R2 
75 023274 005003 CLR R3 
76 023276 004737 012632 JSR PC, XMIT 
7 023302 004737 012632 JSR PC XMIT 

78 023306 004737 012632 JSR PC ,XMIT 

023312 004737 012632 JSR PC XMIT 
80 023316 004737 012632 JSR PC ,XMIT 
81 023322 004737 012632 JSR PC, XMIT 

023326 004737 012632 JSR PC, XMIT 
83 023332 004737 012632 JSR PC, XMIT 
es 023336 004737 012632 JSR PC, XMIT 
86 023342 ENDC: ENDTST 

023342 110023: 

023342 104401 TRAP C&cTSt 


sat td os 3 3 
RGRELLSSSLE 


a= ee ws a I tt os oO 
OOD NAN EWN HO 0OON 


143 023350 
146 023352 
149 023360 
150 


151 
152 023362 


G 10 


BIDIRECTIONAL FORMS TRACTOR TEST 


010446 
010346 
010246 


FUNCTIONAL DESCRIPTION 
: TEST #12 
LOCAL PROCEDURE PRARCH 
Le Se aE ss oat ne aoe Cabal ER a hae nN 


ee wet AND ACCUMULATE SPACING TO RE=POSITION THE CARRIAGE 
AT THE ( 0,0 ) POSITION IN THE ARRAY. 


Be Be Be Be Be Se Be Be 


RG - RANDOM NUMBER CONTAINED IN R4 
- USED TO GET A RANDOM TABLE ENTRY WHICH IS PRINTED. 


OUTPUTS 
THE TABLE ENTRY [S MARKED AS IT IS PRINTED. 
SUBORDINATE ROUTINES 


RANDOM = GETS ANOTHER RANDOM NUMBER IF THE ONE SUPPLIED 
- WAS CHOSEN ALREADY DURING THIS PASS. 

PRARCH: MOV R4,- (SP) sSAVE REGISTERS 

MOV R3,-(SP) : 

MOV R2,-(SP) : (THAT ARE NOT USED FOR PASSING) 
GTNUM: ASL RG sOFFSET DESIRED * 2 

MOV R6,RF + SAVE 2 * OFFSET és LATER 

ASL RG DESIRED Ag * 

ADD R3,RG :6 * OFFSET NOW a 

;DESIRED TABLE IHDEX. NOw IN R4, 
ADD MRASET RG SADDRESS OF TABLE ENTRY DESIRED 


SEQ 123 


int at oe 


o 
— 


fo mealealealealealoanea, 
ODODNAWUE WGN 


023406 
023412 


023416 


023510 
023516 


023556 
023562 


BIDIRECTIONAL FORMS TRACTOR TES? 


062704 
105714 
001404 
004737 
010104 
000762 


112714 
162704 


012401 
7? 


113760 
012401 


005200 
113760 
012701 
012702 


012702 
3 


014401 


005401 
162701 


C00005 


015040 


000001 
000005 


014314 
000001 
010066 
010047 
010050 


014314 


012632 
015360 


002233 
000005 


012632 
015360 
000001 


012632 
015360 


000014 


002226 
062226 
002226 


002233 
002233 
002233 


NOT: 


H 10 


#5 RG 
are 

NOT? 

PC ,RANDOM 
R1-RG 
GTNUM 


#1, @RS 
B5,RS 


(R4)¢, Ri 


Pc .CONVR 


7,R0 
wwe. oVRTCLS(RO) 
— VRTCLS(RO) 
wNEBS, VRTCLS(RO) 


(R4)+,R1 

PC, CONVRT 

#1 RO 

MNEB1, HRZTLS(RO) 


RO 
Neate hin 
R 
MNEBS HRZTLS(ROD 
@VRTCLS,RI 

5.R2 


a3 
PC XMIT 
PC, ERRORS 


MHRZTLS,RI 
#5,R2 

R3 

PC, XMIT 
PC, ERRORS 


PC XMiT 
PC ERRORS 


(RS) ,R) 
RQ) 
#12. ,8) 





; TABLE OFFSET. 
TCHECK UNIQUE NUMBER INDICATOR.. 
iF NOT UNIQUE THEN CONTROL TOO “NoT1 


RANDOM NUMBER IN R 
:GET THE RANDUM NUMBER IN THE RIGHT PLACE. 
TLAST ONE DIDN'T WORK... TRY THIS ONE. 


eSET UNIQUE INDICATOR 
TAT THIS POINT R& CONTAINS A TABLE ENTRY 


TADDRESS WHICH HAS NOT BEEN REFERENCED DURING 
THIS PASS. 


GET THE VERTICAL COMPONENT OF THE VECTOR 
7 CONVERT R71 TO MNEMONICS 
LOAD THE ARGUMENT LIST 


3GET HORIZONTAL Sate eg OF THE VECTOR 
: CONVERT R1 TO MNEMONIC 


;LOAD THE ARGUMENT LIST 


NOW, ACCUMULATE VERTICAL SPACING 


SEND TO PRINTER 
CHECK FOR ERRORS. 


NOW, ACCUMULATE HORIZONTAL SPACING 


“DISABLE BIDIRECTIONAL PRINT 
“SEND TO PRINTER 
SCHECK FOR ERRORS. 


:GET ADDRESS OF THE CHARACTER 
SINGLE CHARACTER 

SDISABLE BIDIRECTIONAL PRINT LOGIC. 
7SEND TO PRINTER 

:CHECK FOR ERRORS. 


;COLUMN NUMBER IN 

[NEGATIVE NUMBER FOR LEFT tg 

AND ONE EXTRA SPACE ACCOUNTS F THE 
CHARACTER WHICH WAS PRINTED ate INCREMENTS) 


SEQ 124 


ch 60 
242 023762 


023764 


BIDIRECTIONAL FORMS TRACTOR TEST 
004737 014314 
012700 
113760 
005200 
113760 
005200 
113760 
012701 
012702 
003 


002235 
002235 
002233 


012632 
015360 


014314 
000001 
010046 
010047 
010050 
002226 
000005 


0902226 
002226 
113760 002226 
012701 
012632 
015360 
012602 


012603 
012604 


000207 


PC, CONVRT 
#1 ,RO 
MNEB1 HAZ TLS (RO) 


RO 
 Nmadaitathenates 
MNEB3,HRZTLS(RO) 
@HRZTLS,RI 

#5,R2 

R3 

PC, XMIT 

PC ERRORS 
-(R4),R1 

R1 

PC,CONVRT 

#1,R0 

A ligt aoa 
ae shies aaa 
MNEB3, VRTCLS(RO) 
@VRTCLS,R1 

#5,R2 

RZ 

PC xMIT 

PC ERRORS 

(SP) *,R2 


(SP)*,R5 
(SP) *,R4 


or 


CONVERT TO MNEMONIC — 


PUT IN ARGUMENT LIST 


ADDRESS ee LIST 


;5 ARGUMEN 

DISABLE BIDIRECTIONAL LOGIC. 
SEND TO PRINTER 

:CHECK FOR ERRORS. 


GET THE COLUMN NUMBER 
TREVERSE THE CARRIAGE MOVEMENT 
CONVERT TO MNEMONIC(S 

sFILL ARGUMENT LIST 


ADDRESS OF ARGUMENT LIST 


; TO ACCUMULATE VERTICAL SPACING 


[DISABLE BIDIR. LOGIC 
SEND TO PRINTER 


+ CHECK FOR ERRORS. 
SRESTORE REGISTERS 


“UT SHEET FEEDER EXERCISOR 


J 10 


SEQ 126 
TEST 13: Cut SWEET FEEDER EXERCISOR 
1 
: 
4 023766 BGNTS? 
: 923766 113:: 
6 
7 ET Et ae Cee eee PPE STO TEs PePI ES COPSES ECEELOSLOOS ESTE Sit Le Seta elas Los o 
8 ; 
3 : TEST #13 
1 : 
1 : CUT SHEET FEEDER EXERCISOR JOPTIONAL SPECIAL TEST 
13 : THIS TEST WILL EXERCISE THE CUT SHEET FEEDER BY TESTING TO SEE THAT 
14 ; THE FEEDER 1S INSTALLED, FEEDING AND EJECTING SHEETS AND PRINTING 
13 : TEXT ON THE TOPS AND BOTTOMS OF THE SHEETS IN THE PRINTER. 
17 a  imkner sib esebanbarbnwesniaebncnttheenssacneresenieneds 
es 
20 023766 TESTD: MANUAL :MANUAL INTERVENTION PERMITTED? 
23766 104450 TRAP = C$MANI 
21 023770 SCOMPLETE 'DMAN :DO0 TEST IF SET. 
023779 103402 BCS TDMAN 
22 023772 000137 025020 JMP ENDD :SKIP TEST IF NOT SET. 
24 023776 004737 014412 TDMAN: JSR PC, INITCD sINITIALIZE TEST 
25 024002 PRINTR a#TITLED ‘CONSOLE PRINT TITLE 
024002 012746 003773 MOV ATITLED,-(SP) 
024006 012746 000001 MOV #1,-(SP) 
024012 010600 V SP_RO 
024014 104414 TRAP C$PNTB 
024016 062706 000004 ADD #4,5P 
26 024022 005003 CLR R3 :DISABLE BIDIRECTIONAL PRINTING 
28 024024 GMANID PRMPTD,8R2,4,0,7,72.YES 
024024 104443 TRAP CS$GMAN 
024026 0004 100008 
024030 006514 “WORD 
024032 000152 “wORD  TSCODE 
024034 004046 WORD PRMPTD 
024036 “WORD 0 
024040 000001 "wORD TSLOLIM 
024042 000072 "wORD  TSHILIM 
‘ 026044 100008: 
30 :PROMPT USER FOR PAGE SIZE USED. 
31 OPTIONS ARE A) 11 INCH, B) 14 INCH 
5 AND ©) A& EUROPEAN STANDARD. 
34 024064 123737 006514 006527 (MPR ~—s«dBR2, SCB :WAS THE CHOICE = ‘B’ ? 
35 024052 001020 BNE CHK C ‘]F NOT THEN CHECK IF IT IS = “'... 
37 024054 012704 000001 MOV #1,RG sOFFSET FOR PS7214 & STPGSZ 
38 024060 113764 002330 002271 MOVB PS 714, STPGS2(R4) “THEN = "RB... 146 INCH PAGE. SET UP ARG LIST 
39 024066 012705 000001 MOV #1,R 
40 024072 116564 902330 002277 MOVB —s PS. 714.(R'5), STPGSZ(R4) : 


K 10 


SEQ 127 
| TEST 13: CUT SHEET FEEDER EXERCISOR 
41 024100 005204 INC R4 
42 024102 005205 INC RS 
4% 024104 116566 002330 002271 MOVB ps7 16 (RS). STPGSZ(R4) : 
“6 024112 47 BR TRNSMT ‘SEND THE ARGUMENT SEQUENCE 
66 024114 123737 006514 006526 CHKC: CMPB  BR2,5CC i155 CHARACTER A ‘'C'’ ? 
7 024122 001022 BNE MAKE 11 IF THEN ASSUME IT WAS AN “‘A’’. 
4 
| 49 024124 010146 MOV R1,=-(SP) :SAVE R1 TEMPORARILY 
50 024126 012701 000002 MOV 2,R1 OFFSET 
1 024132 012700 000001 MOV #1.RO SOF FSET 
52 024136 113760 002322 002271 MOVB _—s PS 2A4,, STPGSZ(RO) ‘THEN = "'C''. SET UP ARG LIST 
53 024144 116061 002322 002271 MOVB _—«- PS 2A4 (RO), STPGSZ(R1) 
54 024152 012700 06 MOV #3,R0 “OFFSET ADJUSTMENT 
55 026156 116160 002322 002277 MOVB _— PS 7A4(R1), STPGSZ(RO) : 
| 56 024164 012601 MOV (SP) +,R1 ;RESTORE R1 
| 34 024166 21 BR TRNSMT 
59 024170 010146 MAKE11: MOV R1,-(SP) ;SAVE_R1 TEMPORARILY 
| 624172 012701 000002 MOV #2,R1 FFSET 
61 024176 012700 01 MOV #1,R0 “OFFSET 
| 024202 113760 002325 002271 MOVB _—« PS 211, STPGSZ(RO) ;THEN = “’A''. SET UP ARG LIST 
| 63 024210 116061 002325 002271 MOVB _—sw S211 (RO) , STPGSZ(R1) FOR 11 INCH PAGE. 
64 024216 012700 000003 MOV #3,R0 OFFSET ADJUSTMENT 
| 65 024222 116160 002325 002271 MOVB —«PS711(R1) , STPGSZ(RO) 
66 024230 012601 MOV (SP) +,R1 “RESTORE R1 
| 68 024232 012701 002271 TRNSMT: MOV #STPGSZ,R1 ZADDRESS OF ARGUMENT LIST 
69 024236 012702 0 MOV #5,R2 : 
70 024242 005003 CLR R3 
71 024244 004737 012632 JSR PC, XMIT :SEND TO PRINTER... SET PAGE SIZE 
?e 024250 004737 015360 JSR PC .ERRORS >CHECK FOR ERRORS. 
74 024254 012700 000001 SELECT: MOV #1.R0 
75 024260 012701 000002 MOV #2.R1 : TRANSFER OFFSET FOR 
76 024264 113760 006412 002276 MOVB FRONT, SLTPFF (RO) = SELECT TRAY-PERFORM FORMFEED 
77 024272 116061 006412 002276 MOVB —- FRONT (RO), SLTPFF(R1) ‘ARGUMENT LIST 
78 024300 012700 000003 MOV #3,R0 [OFFSET ADJUSTMENT 
fad 024304 116160 006412 002276 MOVB _- FRONT(R1),SLTPFF (RO) : 
81 024312 012701 002276 MOV ASLTPFF RI ZADDRESS OF ARGUMENT LIST 
82 024316 012702 5 MOV #5.R2 : 
83 024322 005003 CLR R3 
B4 024324 004737 012632 JSR PC, XMIT :SELECT TRAY AND PERFORM FORMFEED. 
85 024330 004737 015360 JSR PC .ERRORS “CHECK FOR ERRORS. 
87 024334 012701 004654 MOV af TYTPM,R1 :FRONT TRAY TOP OF PAGE MESSAGE 
88 024340 012702 000140 MOV #96. ,R2 °96 CHARACTERS LONG 
89 024344 005003 CLR R3 
90 024346 004737 012632 JSR PC, XMIT ;SEND TO PRINTER 
31 024352 004737 015360 JSR PC ERRORS *CHECK FOR ERRORS. 
93 024356 123737 006514 006527 CMPB ~—s- BR2,, S(B :1S THE BYTE A ‘BT 
94 024364 001003 BNE CHC? ‘JF NOT THEN CHECK FOR A ‘'C’* 
96 024366 013701 002170 MOV SKP14,R1 zSKIP 14 INCHES MINUS 3 LINES VERTICALLY 
97 024372 000411 BR DOSPCS “PERFORM TASK 


too 


| 


} 
| 
| 
| 


TEST 13: 
98 
99 024374 
13 024402 


1 
102 024404 
103 024410 


04 
105 024412 
06 


108 024422 
024452 
024460 


024476 
024502 


ee ee ee ee ee 
Ne rumen 
NM -OVONAU EW O 


147 024626 
149 024632 
i” 024636 


52 
53 024654 
54 024656 


CUT SHEET FEEDER EXERCISOR 


123737 
001003 


013701 
000402 


013701 
010137 
004737 
012700 
113760 
005200 
113760 
005200 
113760 
012701 
012702 

003 


012702 
003 


012601 


012701 
Ree 


012702 
003 


013701 
004737 
012700 
113760 
005200 
113760 


006514 006526 
002172 


002174 


002176 
014314 


000001 
010046 002226 
010047 002226 
010050 002226 
002226 
000005 
012632 
015360 


007203 
000072 


012632 
015360 


2 
006415 002276 
006415 002276 


3 
006415 002276 


2632 
5360 


2176 
014314 


000001 
010046 002226 
010047 002226 


01 
01 
00 


CHC2: 


ASSMA: 


DOSPCS: 


CMPB 


L 10 
BR2,SCC y1S THE CHARACTER A ‘'C'"? 
ASSMA sMUST BE 11 INCH IF NOT B OR C. 
SKPAG RI ;MUST BE A4 SIZE. SKIP A4 = 3 LINES VERTICALLY 
DOSPCS PERFORM TASK 
SKP17,R1 311 INCH PAGE. SKIP 11 INCHES = 3 LINES 
R1,CRNTSK SAVE CURRENT SKIP _ 


aaa ; CONVERT TO MNEMONICS 
MNEBT,VRTCLS(RO) ;MNEMONICS FOR ARG LIST 
RNEBD, VRTCLS (ROD 3 

MNEBS,VRTICLS(RO) ; 


ee ADDRESS OF ARGUMENT LIST FOR VERTICAL SPACING 
Rs" ° 
PC, XMIT 7SEND TC PRINTER 
PC,ERRORS ;CHECK FOR ERRORS. 
#FBIM,R1 PRINT BOTTOM OF PAGE MESSAGE 
oee- oe 358 CHARACTERS 
PC, XMIT 7SEND TO PRINTER 
PC, ERRORS :CHECK FOR ERRORS. 
#1,R0 
R1,-(SP) 
#2,R1 TEMPORARILY SAVE R1 
REAR, SLTPFF (RO) TSELECT REAR TRAY 
Se : AND PERFORM 
a5, 
REAR(R1),SLTPFF (RO) ; FORMFEED. 
(SP)+,R1 RESTORE R1 
< ol ;ADDRESS OF ARGUMENT LIST 
R - e 
PC, XMIT 7SEND TO PRINTER 
PC,ERRORS 7 CHECK FOR ERRORS. 
#RTYTPM,R1 REAR TRAY TOP OF PAGE MESSAGE 
+ i 796 CHARACTERS LONG 
PC, XMIT :SEND TO PRINTER 
PC,ERRORS ;CHECK FOR ERRORS. 
CRNTSK,R1 7GET CURRENT SKIP SIZE. 
PC, CONVRT :CONVERT TO MNEMONICS 


#1,R0 
UES! LWATEL SIAN) sMNEMONICS FOR ARG LIST 
MNEB2,VRICLS(RO) ; 


SEQ 128 


[ 
| 
| 
| 
| 
| 


TEST 13: CUT SHEET FEEDER EXERCISGR 
155 024664 005200 
128 024666 113760 010050 002226 
158 024674 012701 002226 
159 024700 012702 000005 
160 024704 005003 
161 024706 004737 012632 
166 024712 004737 015360 
164 
165 024716 012701 007203 
166 024722 012702 000072 
167 024726 005003 
168 024730 004737 012632 
ss 4 024734 7 015360 
171 024740 012700 000001 
172 024744 012701 000002 
173 024750 113760 006420 002276 
174 024756 116061 006420 002276 
175 024764 012700 00000 
176 024770 116160 006420 002276 
177 024776 012701 00227 
178 025002 012702 000005 
179 025 005003 
180 025010 004737 012632 
+ 3 025014 004737 015360 
183 025020 ENDD: 
025020 
025020 104401 
184 
185 : 
186 ; 
187 : 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 TIT 
205 . SBITL 


-EVEN 


mM 10 


RO 
MNEBS,VRTCLS(RO) ; 


rt ahh Se zADDRESS OF ARGUMENT LIST FOR VERTICAL SPACING 
mq 

PC, XMIT ;SEND TO PRINTER 

PC, ERRORS sCHECK FOR ERRORS. 

#F3TM,R1 sMESSAGE FOR BOTTOM OF PAGE 
#58. .R2 ‘ 

R3 

PC,XMIT ;SEND TO PRINTER 

PC,ERRORS ; CHECK FOR ERRORS. 

#1,RO 

#2,R1 :OFFSET IN ARG LIST 
NULL , SL TPFF (RO) sEJECT 

NULL (RO), SLTPFF (RI) 

#3,R0 

NULL (R17), SLTPFF (RO) PRESENTLY 
#SLTIPFF,R1 : IN THE PRINTER 
#5,R2 F 

R3 

PC,XMIT :SEND TO PRINTER 
PC,ERRORS s CHECK FOR ERRORS. 


110024: 
TRAP 


LE PARAMETER CODING 


HARDWARE PARAMETER CODING SECTION 


CSETST 


SEQ 129 


bie 








' 
| N 10 


7 SEQ 130 


HARDWARE PARAMETER CODING SECTION 


| ; 
2 e+ 
3 : THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
4 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P=TABLES. THE 
5 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
6 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
7 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
. : WITH THE OPERATOR, 
10 
11 025022 BGNHRD 
025022 000022 «WORD L10025=L $HARD/2 
12 025024 '$HARD: : 
13 025024 GPRMD GPD2MS ,6,0,3.1.2.VYES sPRINTER WIDTH QUESTION. 
025024 003032 -WORD TS$CODE 
025026 025420 -WORD GPD2MS 
025030 000003 -WORD 3 
025032 000001 -WORD TSLOLIM 
625034 000002 -WORD TS$HILIM 
14 025036 GPRMA GPAMSG,0,0,160000,177777, YES zCSR ADDRESS QUESTION. 
025036 000031 -WORD TSCODE 
025040 025070 .WORD  GPAMSG 
025042 160000 -WORD T$LOLIM 
025044 177777 .~WORD TSHILIM 
15 025046 GPRML GPLMSG,2,1,VES 3DZ11? QUESTION. 
025046 01130 P TSCODE 
025050 025242 -WORD  GPLMSG 
025052 000001 .WORD 1 
16 025054 XFERT SNGLP 7SKIP CHANNEL QUESTION IF DL11. 
25054 006024 - WORD TSCODE 
17 025056 GPRMD GPDMSG,4,0.7.0.7.YES 7 CHANNEL # QUESTION. 
025056 203 -WORD TSCODE 
5060 025325 -WORD GPDMSG 
025062 - WORD 7 
025064 000000 «WORD TS$LOLIM 
025066 000007 -WORD TSHILIM 
18 025070 SNGLP: 
19 025070 ENDHRD 
EVEN 
- 025070 L10025 
$3 : MESSAGES FOR THE ABOVE CALLS 
23 025070 012 015 111 GPAMSG: .ASCII <12><15>/IF DEFAULT VALUES FOR INTERFACE DESIRED, ENTER “2./<12><15> 
025073 106 040 104 
025076 105 106 101 
025101 125 114 124 - 
025104 040 126 101 
025107 114 125 105 
025112 123 040 106 
025115 117 122 040 
025120 117 116 124 
025123 105 122 106 
Oe31¢6 101 103 105 
025131 040 104 105 
025134 123 111 122 


—_———— 


SEQ 131 
HARDWARE PARAMETER CODING SECTION 


| 025137 105 104 054 
025142 040 105 116 
025145 124 105 122 
025150 040 136 132 
| 025153 056 012 015 
24 025156 012 015 040 ASCII <12><15>/ /<12><15> 
025161 012 015 
25 025163 105 116 124 eASCIZ /ENTER CONTROL STATUS REGISTER (CSR) ADDRESS.>>/ 
025166 105 122 040 
025171 103 117 116 
025174 124 122 117 
025177 114 040 123 
025202 124 101 124 
025205 125 123 040 : 
025210 122 105 107 
025213 111 123 124 
025216 105 122 040 
025221 050 103 123 
025224 122 051 040 
C25227 101 104 104 2 
025232 122 105 123 
025235 123 056 076 
025240 076 000 
26 025242 012 015 120 GPLMSG: .ASCIZ <12><15>/PRINTER CONNECTED TO A SINGLE LINE INTERFACE? >>/ 
025245 122 111 116 
025250 124 105 122 
025253 040 103 117 
025256 116 116 105 
025261 103 124 105 
025264 104 040 124 
025267 117 040 101 2 
025272 040 123 111 
025275 116 107 114 
025300 105 040 116 
025303 111 116 105 
025306 040 111 116 
025311 124 105 122 
025314 106 101 103 
025317 105 077 040 
025322 076 076 000 
27 025325 012 015 105 GPDMSG: .ASCIZ <12><15>/ENTER INTERFACE CHANNEL NUMBER FOR THE PRINTER. (0-7) >>/ 
025330 116 124 105 
025333 122 040 111 
025336 116 124 105 
025341 122 106 101 
025344 103 105 040 
025347 103 110 101 
025352 116 116 105 
025355 114 040 116 
025 125 115 102 
025 363 105 122 040 
025 106 117 122 
025371 040 124 110 
025374 105 040 120 
025377 122 111 116 
025402 124 105 122 
025405 056 040 050 





| HARDWARE PARAMETER 


025410 
025413 
025416 


29 925420 


0 
31 025462 


32 025543 


025632 


025636 


QEAF 


CODING SECTION 


060 


er ey ey ee oo 
Se See ae Ge eee NU 
NWN OR SNNONWO OO 


RGLIRVAN ROSH 
VAGCKNNOD=ONO 


oO 
™~ 
AMO 


ee ed ad od 3 = 
= MeN] —oOnNN 
ONO—AOW 


—_d od od 
—M™ 
NWO MO 


S=IS=R 


GPD2MS: .ASCII / /<12><15> 
“ASCII /CHOOSE PAGE WIDTH FOR PRINTER/<12><15> 


.ASCII /CHOOSE ONE: 1) 80 CHARACTERS PER PRINTER LINE/<15><12> 


ASCII / 2) 132 CHARACTERS PER PRINTER LINE/<15><12> 


eASCIZ /(1,2) >>/ 
~EVEN 


$PATCH:: 
-RBLKW 100; (ADJUST SIZE OF PATCH AREA UNTIL) 


SEQ 132 


D 11 


} 
38 : (LASTAD + 27264 HAS BIT 7 CLEAR ) 

39 

40 

41 026036 * LASTAD 

| . ; ~EVEN 
026036 ~ WORD 
026040 000000 WORD 


026042 LSLAST:: 


te | 


SEQ 133 


HARDWARE PARAMETER CODING SECTION 


| 
| 
| 
| 


} 026042 . 


000001 


«END 


ENDMOD 


E 11 


SEQ 134 


SYMBOL TABLE 
ABORT 015714 
ABSND 017220 
ABSS 017430 
ACAS 006535 
ADR = 000020 
AGN 021150 
| ALPHA 013532 
ASSEMB= 010 
_ ASSMA (024412 
| AUTCAL 022376 
| AUTOLD 022404 
| AUTOLE 022410 
| BASET 005262 
| BAUDRT 005250 
| BAUTBL 464 
BETA 013514 
BFRA 007352 
BFRB 010030 
BFRC 010032 
BFRD 10034 
BIDIRP 012742 
BITO = 000001 
BITOO = 000001 
BITO1 = 000002 
BITO2 = 000004 
B1T03 = 000010 
BIT04 = 000020 
BITOS = 00004 
BIT06 = 000100 
BITO7 = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1 = 2 
BIT10 = 002000 
BIT11 = 000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = 00004 
8I1T6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BOE = 00 
BR2 514 
CALLDF 015776 
CALLDL 016012 
CAN 006516 
CCOUNT 01 
CHC2 024374 
CHKC 024114 
CHKCAN 013570 
CHKN6 017732 


oO Oo 
DOADDAAADAADAAAADAAAAADAAAIAAIAAAG 


CHRCNT 


010064 


00001 


000377 
0 


i) 


DAAAAA 


F $HARD 


a aa 


aa 


aa 


SEQ 135 


SEQ 136 
SYMBOL TABLE 
I$DU_ = 000041 LSERR? 010072 G MNEB1 010046 PGMCTR 007314 SETUPi 014626 
ISHRD = 000041 LSETP 002102 G MNEB2 010047 PLOC 002204 SET15 015314 
ISINIT= 0 LSEXP1 002046 G MNEB3 010050 PLOOP 020072 SEVEN = 000047 
H = 000041 LSEXP4 002064 G MSGADD 005244 PLOOPC 023220 SIX = 000046 
I$MSG = 000041 LSEXP5 002066 G MXLF = 002000 PLOOP9 022130 SKPAS4 002172 
I$PROT= 000040 L$HARD 025024 G NDATA 010056 PN = 001000 G SKP11 002174 
ISPTAB= 000041 L$HIME 002120 G NEWMOD 020152 PRARCH 023344 SKP14_ 002170 
I$PWR = 000041 L$HPCP 002016 G NEXTU 015662 P = 002000 G SLFTST 002255 
I$RPT = 000041 L$HPTP 002022 G NINE = 000051 PRI00 = 000000 G SLTPFF 002276 
I$SEG = 000041 LSHW 002160 G NONDTA 015106 PRI01 = 000040 G SNGCHR 006522 
ISSETU= 000041 L$1CP_ 002104 G NONDT2 016214 PRIO2 = 000100 G SNGLP 025070 
I$SRV = 000041 L$INIT 015634 G NONDT3 016250 PRIO3 = 000140 G SPACE 006541 
1$SUB = 000041 L$LADP 002026 G NONDZA 016406 PRI04 = 000200 G SPCSIZ 010036 
I$TST = L$LAST 026042 G NONDZ2 016514 PRI05 = 000240 G STATS 015132 
JENDIN 015716 L$LOAD 002100 G NONDZ3 016550 PRI06 = 000300 G STATUS 002315 
JUNKPL 006440 L$LUN 002074 G NOPRTM 014166 PRIO7 = 000340 G STCHSZ 002244 
JSJMP = 000167 LSMREV 002050 G NOTQ 023024 PRMPTA 003200 STHTCT 002257 
LCHYET 012732 LSNAME 002000 G NOT1 023406 PRMPTC 003466 STLNSZ 002251 
LF 2314 L$PRIO 002042 G NPRMPT 004531 PRMPTD 004046 STPGSZ 002271 
LINCNT 010062 L$PROT 015626 G NULL 006420 PRNTIT 017726 STRTUP 015722 
LINCOD 016570 L$PRT 002112 G NUM1_ = 000001 PRTBMO 010230 STSCAL 017760 
LINLOO 020340 LSREPP 002062 G NUM10 = 000012 PRTM2 016472 STSERR 015106 
LINLO6 021372 L$REV 002010 G NUM11 = 000013 PRTXMO 010302 STSPSZ 002262 
LINN 010040 L$RPT 015620 G NUM12 = 000014 PSZA4 002322 STSRES 002210 
LINSIZ Q1 L$SPC_ 002056 G NUM13 = 000015 PSZ11 002325 STULMD 002266 
LNELOO 012746 L$SPCP 002020 G NUM14 = 000016 PS214 002330 SVCGBL= 000000 
LODELY 015016 L$SPTP 002024 G NUM15 = 000017 RANDOM 015040 SVCINS= 000001 
L = G L$STA_ 002030 G NUM2 = 00 RBUF 007302 SVCSUB= 
LOGUNI 002202 L$TEST 002114 G NUM3 = 000003 RCSR 007276 SVCTAG= 000001 
LOOPA 022726 L$TIML 002014 G NUM4 = 000004 REAR 006415 SVCTST= 000001 
LOOPCK 014040 LSUNIT 002012 G NUMS = 000005 RESET 002224 S$LSYM= 010000 
LOOPG 014142 LI1LOOP 020656 NUM6é = 000006 RESETC 014426 022644 
LOOPXN 013674 L10 00217 NUM7 = 000007 RESINN 013430 TBLOT 022304 
LOOP8 8 021762 L10001 012630 NUM8 = 000010 REVRSP 021610 TBMANB 2204 
LOT = 0G L10002 015624 = 000011 RIBPOS 002240 TCMAN 023070 
LOUEF 014472 L10004 017564 NXTA 022750 RTYTPM 005014 TCR 007310 
LPR 007306 L19005 016712 NATBIT 015404 SCA 006531 TCRENA 006436 
LPRINI 42 110006 017566 NXTERM 015506 SCB 006527 TCRTBL 006 
i$ACP 002110 G L10007 017630 NXTLIN 021554 SCC 006 T 23776 
L$APT 002036 G L10010 017764 ONE = 000041 $cQ 006525 TDR 007312 
L$AUT 002070 G L10011 020222 OPTN? 003351 SCx 006530 TESTA 022634 
L$AUTO 017566 G Li10012 020506 OUTCTR Sco 006532 TESTB 022174 
L$CCP 002106 G L10013 021040 OUTRLP 014140 $1 006533 TESTC 023060 
L$CLEA 017570 G L10014 021262 OUTSDC 510 SEED1 006424 TESTD 
L$CO 002032 G L10015 021444 OUTSDL 013666 SEED2 TEST1 017632 
LSDEPO 002011 G L10016 021644 O$APTS= 000000 SELECT 024254 TEST2 017766 
LSDESC 010150 G 110017 022010 O$AU = 0 SENCHR 013402 TESTS 020224 
LSDESP 002076 G L10020 022172 O$BGNR= 000000 SENCH2 0134 TESTS 020510 
LSDEVP 002060 G 110021 022402 O$BGNS= 000000 SENCLP 013434 TESTS 02104 
L$DISP 002124 G L10022 023056 o$DU = 000000 ENDR 014256 TEST6 64 
L$DLY 002116 G 110023 023342 OSERRT= 000001 SENDR2 0133534 TEST? 021446 
L$DTP 002040 G L10024 025020 O$GNSW= 000000 SENDX 013724 TEST8 021646 
L$DTYP 002034 G L10025 025070 OSPOIN= 000001 SETCHO 002310 TESTO 022012 
L$DUT 002072 G MAKE11 024170 O$SETU= 900000 SETER 01363 TFCZ 023000 
L$DvT¥ 010102 G MANLD 022524 ALPHA 015306 SETHTO 00230 THREE = 3 
L SEF 002052 G MANLE 022544 PERIOD 006534 SETONE 920140 TIMOM 012526 
LSENVI 002044 G MLTLIN 010052 Prom] 016172 SFTUPC 016274 TITLEA 003115 


| 
! 
! 
| 
} 


a 


SYMBOL. TABLE 
ITLEB 3 
ITLEC 003717 
ITLED 003773 
ITLE1 002333 
ITLE2 2 
ITLES 0024646 
ITLES 002513 
ITLES 
ITLE6 
ITLE? 002725 
ITLE8 002772 
ITLED 003046 

TMPLT? 006430 

TPLTZ 006432 

TMPLT3 006434 

TOPSTK 010026 

TRDYBT 010064 


- ABS. 026042 000 
001 


000000 
ERRORS DETECTED: O 
VIRTUAL MEMORY USED: 


TSHIL 


¢ 
Ze 
w 
i Lad 
wou 


TSLSYM= 


20966 WORDS 
DYNAMIC MEMORY AVAILABLE FOR 69 PA 


TSTAGL= 177777 


—@ 
~ 
N 
oO 
Aw 
Nm 
a 


710 022174 G 
111 022634 G 


( 82 PAGES) 
GES 


C7. GPB.BIN, C7LOP8.SEQ/C/N: TOC=SVC34R.MLB, C7. 0PB.P71 


: 


H 11 


LOT 
UAM 


004346 


= 000200 


ono nonnannan a Aa Aq 


UBTRAP 
UCRB = 


ZERO = 
$PATCH 


016704 G 
100V0 


000040 
025636 G 


SEQ 137 


CROSS REFERENCE TABLE (CREF v01=05 ) SEQ 138 
SPATCH 40-360 : 


| ABSS 23-477 = 23-480 = 23-4854 
| ABSND 23-426 = 23429 23-4348 


| BASET 6-155@ 38-45 38-152 


BETA 11=65@ 11-77 11-98 . 

BFRA 6-3964 10-67 37-37 37-42 37-55 37-59 37-64 
BFRB 6-4008 34-59 34-62 

BF RC 6-46014 36-38 36-42 


BFRD 6-4024 38-37 

BIDIRP 73 10-984 

BITO 5-24 12-70 15-86 17-71 20-52 

BITOO 5-2 5-24 

BITO1 5-2 5-28 

BITO2 5-2 5-28 

BITO3 5-2 5-24 

BITO4 5-2 5-28 

BIT05 5-2 5-28 

BITO6 5-2 5-28 

BIT07 5-2 5-28 13=41 

BIT08 5-2 5-28 

BITO9 5-2 5-24 

BIT? 5-24 

81T10 5-28 

BIT11 5-28 

BIT12 5-28 5-43 11-95 12-75 12-86 15-98 
BIT13 5-24 5-42 13+ 2 15-99 25-41 

BIT14 5-28 26-26 26-32 27-35 27-41 28-33 28-39 29-38 29-44 30-33 30-39 31-29 31-35 32-32 


32-38 33-32 33-38 34-4 34-46 37-29 37-35 38-29 38-35 
BIT15 5-2# 11-106 3912-87 13-6 13-76 15-100 17-80 17-92 20-46 23-80 23-142 = 23-351 23-443 23-494 


25-42 
BIT2 5-28 17-72 
BITS 5-28 17-73 
BITS 5-28 
BITS S-28 14-46 14-56 14-61 23-349 
BIT6 5-28 
BIT7 5-24 11-62 12-48 23-64 23-125 923-1860 23-284 23-428 = 23-479 
BIT8 5-28 
BITS 5-28 
BOE 5-28 
BR2 6-315@ 39-28 39-34 39-466 39-93 39-99 


J 11 


CROSS REFERENCE TABLE (CREF vO1=05 ) SEQ 139 
C$BSUB = 78 
CSCEFG o-78 
' CSCLCK 2-78 
CSCLEA 2-78 24-24 
|; C$CLOS o-78 
CS$CLP1 2-78 


| 

cScvec «5-78 = 23+183 

| C$OCLN 2-78 20-78 23-33 23-58 25-8 23-94 23-119 23-150 23-156 © 23512 
| C$00U +78 
| 


CSDRPT 2-78 

C$DU 2-78 : 
CSEDIT 2-78 2-24 
(SERDF 2-78 

CSERHR = = 7# 

CSERRO 9 e-7# 20-59 
CSERSF 9 = 7# 

CSERSO 8 = 7# 

CSESCA 9 = 7# 

CSESEG 2-78 
CSESUBO-7# 


CSETST 2-7# 25-47 26-63 27-77 28-89 29-70 30-59 31-66 32-55 33-59 34-71 37-75 38-86 39-183 
CSEXIT 2-74 23-193 = 24-19 


C$GMAN 2-7 34-59 36-38 37-37 38-37 39-28 
C$GPHR 2-7# 23-30 


2-78 
CSINIT 2-74 23-523 
CSINLP 2-74 
CSMANI 2-74 34-28 37-21 38-22 39-20 
CSMEM 2-74 
C$MSG 2-74 8-16 
CSOPEN 2-74 


C$PNIB 2-78 20-61 20-76 20-82 25-25 26-24 27-33 28-31 29-36 30-31 31-27 32-30 33-30 34-38 
36-36 37-27 38-27 39-25 
CSPNTF 2-7# 23-57 23-87 23-93 23-118 = 23-149 = 23-155 23-511 


C$PNTS 2-7# 
CSPNIX 2-74 11-56 12-89 13-57 20-62 
C$QI10 2-74 
C$RDBU 2-74 


C$RFLA 2-7# 25-21 26-20 27-29 28-27 29-32 30-27 31-23 32-26 33-26 34-34 


C$SVEC 2-7# 23-36 


13-70 
35-50* 35-51 38-57" 38-64" 38-65 





oa 





TABLE (CREF vOi=05 ) 
30-43" 30-51* 30-52 
30-53 


30-46 31-41 33-49 


28-56 29-49 38-170" 
15-123 26-58 28-46 


10-102 10-111* 10-218* 
39-107* 39-149 


13-45 15-146 18-404 
18-40* 18-42 


10-112 910-117" 10-175* 
23-2734 23-417 
23-509 23-5144 
39-103 39-1074 
24-9 
23-446 3923-453 23-4608 


23-3304 23-466 


17-87 17-90 


K 11 


33-45" 33-55" 33-56 


38-179 38-210 38-226 39-108 
28-80 37-47 38-68 


15=135* 


18-47 35-40 


15-139* 


SEQ 140 


| CROSS REFERENCE TABLE (CREF v01-05 ) 


ERSETT 
ERWORD 


FSCLEA 
F$DU 
F SEND 


F SHARD 


23-171 


23-1748 
12-69 
2 2 


12-744 


38-238 


11-104* 


34-714 
37-734 
13-794 
12-914 
11-102 


10-123 


23-529 
8-9 


27-77 
34-71 


40-16 


26-39 26-52 
31-44 31-54 
39-72 39-85 
12-75* 12-86* 
17-78 17-80* 
23-133* 23-142* 
27-35* 27-41% 
34-40*  34-46* 
12-61 15-74 
11-1074 
19-129 = 10-134 
21-8 22-7 
28-4 28-89 
37-2 37-75 
2-7 2-7 
2-8 8-12 
25-47 25-47 
28-4 28-89 
31-4 31-4 
34-3 34-3 
38-86 39-4 
40-19 


26-61 
32-49 
39-91 


12-87* 
17-87* 
23-182* 
28-33* 
37-29 
23-91 


10-140 


L 11 

27-52 27-59 
33-53 35-37 
39-120 39-126 
13-62* 13-63* 
17-90* 17-928 
23-422% 23-434* 
28-39% 29-38* 
37-35*  38-29s 
23-153 = 23-452 
10-147 910-184 
23-193 23-225 
29-70 30-4 
38-86 39=4 
2-7 2-7 
21-10 21-14 
26-4 26-4 
29-3 29-3 
31-66 32-5 
34-71 34-71 
39-4 39-183 


23-503 


10-190 


23-527 
30-59 
39-185 


28-44 
36-51 
39-147 


15-61* 


30-33* 


10-195 


39-162 


15-98* 
20-67* 
23-473* 
30-39% 


10-201 


28-67 
37-69 
39-169 


15-99* 
20-72* 
23-485* 
31-29% 


10-208 


10-216 


SEQ 141 


28-78 
38-197 


17-59* 
23-54% . 
25-41* 
32-32* 


10-222 


26-4 
33-3 


2-7 
24-24 
27-77 
30-4 


33-3 
38-4 


F$SwW 
FSTEST 
FAILDF 
FAILDL 
FAILDZ 
FAILM 
FBT™M 
FIVE 
FLAGS 


FLTRDY 
FOUR 


fey) 7) =” aaa AAAsH 
“4 PAAAAHWW 

< NYNNWNADVI 

= B2ZR55 P*] 

3- <"MH4DO 

a4 _ 


23-149 
39-165 
25-22 
32-27 
20-74 


10-161 
39-76 


20-82 


36-38 
36-38 


36-38 
36-38 


40-14 


36-38 
12-63 
17-69 
23-455 


10-88 
12-74* 


23-193 


27-29 
34-34% 
23-73 


2 
23-499 


10-133 
23-74% 


24-19 


27-77 
34-71 


27-30 
34-35 
23-81 


40-13 
40-13 


40-13 


23 
23-505 


10-139 
23-136" 


28-4 
37=2 


28-27% 
23-135* 


40-14 
40-14 


40-17 


2 
23-506 


10-146 
23-437* 


29-3 
38-4 


29-32" 
23-4 36* 


40-17 
40-17 


15-81 
23-152 
23-508 


10-189 
23-488* 


30-4 
39-4 


30-27* 
23-487* 


15-90 
23-159 


10-200 


SEQ 142 


31-4 


31-23* 


17-52 
23-161 


10-215 


A snastdiebinan 


Coo 


| 
| 
| 


CROSS REFERENCE 


GTNUM 
Lg 





38-1468 
5 


TABLE (CREF vO1=05 ) 


38-160 
10-197 

6-260 
27-44% 
28-58* 


23-5274 
24-78 


8-12 
23-344 
23-286 


23-5274 
24-78 


7-174 


6-260 6-260 
27-46 27-47s 


28-60*  28-62* 
23-5298 
24-19 24-244 
23-193 23-5234 
2-84 41-1 
8-164 


21-144 

26-4 27-8 
23-2294 

26-4 27-8 
25-54 25-47 
28-4 28-44 
30-594 31-4 


15-83 15-88 
26-18 27-27 
21-10 

23-287 


10-125 10-155 
27-66 


28-70 38-181* 


41-14 
28-4 29-3 
28-4 29-3 


25-47 25-478 
28-89 28-894 
31-44 31-66 


34-3 34-34 
38-864 39-4 
15-92 15-984 
28-25 29-30 


10-158 


38-183* 


30-25 


38-185* 


31-4 


31-4 
26-44 
29-3 
31-664 
34-714 
39-183 


31-21 


38-193 


39-1834 


32-24 


38-21% 


37- 
39-1834 


33-24 


38-214* 


34-32 


38-216* 


37-25 


38-218 


38-4 


38-4 
27-84 
30-4 
32-554 
37-754 


38-26 


SEQ 143 


33 | 
37-754 


39-24 


--_———-—__ -——_——_——_ 





CROSS REFERENCE TABLE (CREF v01=05 ) 


L100 


tT 
— 


Te es ee 
a ee | 
SS8S88s88ss 
Nong a 5 4 4 
NUVSNAAnRwe 





f- 7 


34-714 
37-754 


3-54 


7-118 


6-4454 


40-11 40-114 


4-9 4-94 
23-74 
40-414 


22-74 


23-28 
4-178 
8-164 

21-144 

23-5234 


24-244 


B 12 


SEQ 144 


SEQ 145 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


| 
| 
| 
re 
L10025 40-11 40-198 
LILOOP 28-534 28-87 
LCHYET 10-89 10-924 
LF 6-694 10-108 15-128 38-73 
LINCNT 6-434 29-46% 29-48 29-66* 29-67 


CINCOD 23-50, 93-102 33-167" 


LINN 6-406 23-178* 23-180* 28-86 
LINSIZ 6=4084 10-102 23-172* 23-174* 23-175 26-55 27-62 30-52 31-42 31-48 32-42 33-40 


LOGUNI 6-164 23-26% 23-27* 23-28 23-30 
LOOPCK 12-49 12-72 12-784 
LOOPG 


LOT 5-24 25-22 26-21 27-30 28-28 29-33 30-28 31-24 32-27 33-27 34-35 


LPR 6-369% 11-44% 23-286 23-338* 23-363* 
LPRINI _6-2754 11-44 23-362* 23-363 


MANLD 34-66 36-364 36-53 


MANLE 

MLTLIN 6-422 23-283* 

MNEB1 6-416 14-47* 28-58 29-51 38-172 38-181 38-212 38-228 39-110 39-152 
MNEB2 6-417# 14-57* 28-60 29-53 38-174 38-183 38-214 38-230 39-112 39-154 
MNEB3 6-4184 14-62* 28-62 29-55 38-176 38-185 38-216 38-232 39-114 39-156 


MXLF 5-524 29-67 
NDATA 6-427 23-40" 23-48% 23-52* 23-55 23-72% 23-84 23-111% 23-116 9 23-134" 23-146 «= 23=227* §=23-419 = 25-4356 
23-445 = 23-461* 23-468 = 2.3-486* 3923-496 


NEWMOD 
NEXTU 23-23 23-274 23-31 


NONDTA 23-62 23-65 23-714 


NONDZA 23-123 23-126 23-1334 


NOT1 38-156 38-1624 

NOTQ 37-56 37-634 

6-1374 36-38 

6-260# 39-173 39-174 39-176 








D i2 


NUM3 5-264 
NUMG 5-278 
NUMS 5-284 
NUM6 5-294 
NUM7 5-304 
NUM8 5-314 
NUM9 5-324 


O$DU 

OSERRT 2-7# 2-214 2-24 

OSPOIN 2-74 2-21 2-214 2-24 

OSSETU 2-74 2-24 40-41 

ONE 5-84 6-258 26-42 26-47 35-45 
OUTCTR 6-308 13-38* 13-54* 13-55 13-59 


QUTSDC 6-309F 12-42 12-82* 12-83 


PGMCTR 6-372# 10-58* 15-50* 20-49% 20-61 
PLOC 6-174 23-30* 23-44 23-105 «= 23-168 = 23-273) 23-330 §=— 23-354 39 23-361 


PNT 5-24 
PRARCH 38-61 38-1414 
PRI 5-24 
PRIOO 5-24 
PRIO1 5-24 
PRIO2 5-24 
PRIO5 5-2" 
PRI04 5-24 
PRIOS 5-24 
PR1I06 5-28 


PR1IO7 2-24 5-24 23-36 


23-415* 


23-465* 


SEQ 146 


| CROSS REFERENCE 


6-367" 
| RCSR 6-3654 
REAR 6-2598 
| RESET 6-478 
| RESETC 15-56" 
| RESINN 11-4674 
REVRSP 31-518 
RIBPOS 6-524 
| RTYTPM 6-1418 
| S$LSYM i 
37-37 
sco 6-3298 
scl 6-3304 
SCA 6-3284 
scB 6-3264 
scc 6-3254 
sca 6-3244 
SC 6-3274 
SEED1 6-2624 
SEED2 6-2634 
SELECT 39-744 
SENCH2 11-444 
SENC 10-86 
10-192 
SENCLP 11-494 
SENDR 13-42 
SENDR2 10-106 
SENDX 12-544 
SET15 17-88 
SETCHO -664 
SETER 11-90 
SETHTO 6-654 
SETONE 26-43 
SETUPC 23-45 
SETUPI 15-96 
SEVEN 5-144 
SIx 5-134 
SKP11 6-94 
SKP14 6-74 
SKPAG 6-384 
SLF TST 6-564 
SLTPFF 6-624 
' SNGCHR 6-3224 
SNGLP 40-16 
SPACE 6-3344 
SPCSIZ 6-4044 
STATS 17-494 
STATUS 6-724 
STCHSZ 6-544 
STHTCT 6-584 
STLNSZ 6-55# 
STPGSZ 6-614 
STRTUP 25-32 
STSCAL 25-40 
STSERR 117-105 
STSPSZ 6-59# 


15-1034 


39-105 


13-68 
12=48 
35-132 
24-14 


15-105 


8-164 
33-594 
37-754 
12-68 
34-62 
39-93 
39-99 
37-55 
28-64 
16-51 
16-52* 


10-2134 


11-1044 


39-77* 
27-55 


28-53 
10-143 
15-112 
39-408 


17-434 


28-75 


39-79* 
27-65* 


28-85* 
10-180 
27-46" 
39-4 3s 


23-128 
23-64 


35-34 
23-2298 
34-59 


38-37 
17-84 


39-81 


28-86 


10-204 
27-48 


39-52e 


35-43* 
23-5254 
34-59 
38-37 


10-137 
11-394 


39-1318 


27-70" 
39-53* 


E 12 


23-277 
23-186 - 


35-44 
23-5294 


34-594 
38-374 


10-144 
12-56 


39-132* 


27-71 
39-55* 


1 23-482 
1* 23-349 


36-46% 36-47 

24-244 25-47 26-634 
34-714 36-38 36-38 
38-864 39-28 39-28 
10-153 10-156 10-159 
12-58 17-44 17-47 
39-134" 39-137 39-173* 
39-62" 39-63" 39-65" 


23-428 


27-774 
36-38 
39-28 


* 10-162 


39-174* 


39-68 


23-479 


28-894 


10-165 


39-176* 


29-704 
37-37 
39-1834 


10-181 


39-177 


SEQ 147 


30-594 
37-37 
40-194 


10-187 


SEQ 148 


F 12 
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| CROSS REFERENCE TABLE (CREF vO1-05 ) 


SVCTAG 2-7# 
SVCTST 2-7# 


40-17 
40-19 
SVCSUB 0 2=7# 


TS$HAR 40-11 
TS$HW 4-9 
TS$INI 23-74 
TSSMSG 8-94 
TS$PRO 22-74 
TS$RPT 21- 
TS$SRV 23-2254 
TS$TES 25-54 
32-54 
TSARGC 2-24 
o-244 
26-61 
23-57 
23-1494 
27-33 
32-30 
37-278 
TSCODE 34-59 
37-37 
39-284 
40-15 
40-16# 


24-19 


31-23 31-23 
31-27 31-27 
32-30 32-30 
32-55 30-55 
33-30 33-30 
34-28 34-29 
34-38 34-38 
34-59 34-59 
34-59 34-59 
36-36 36-36 
36-38 36-38 
36-38 36-38 
37-27 3727 
37-37 37-37 
37-37 37-3 

3B-22 38-22 
38-27 38-27 
38-37 38-37 
38-37 38-37 
39-25 39-25 
39-28 39-28 
39-28 39-28 
40-13 40-13 


40-19 40-41 
4-17 8-16 
32-55 33-59 
25-5 26-4 
24-24 
40-19 

4-17 
23-523 

8-16 
21-14 
26-44 26-63 
33-34 33-59 
2-24 2-24 
2-244 11-56 
20-614 20-62 
23-57# 23-87 
23-155 23-1554 
28-31 28-31 
32-304 33-30 


40-178 


40-174 


23-523 
36-38 
29-3 


28-44 
37-24 


40-174 


23-529 
37-37 
30-4 


28-89 
37-75 


24-24 
37-75 
31-4 


29-34 


38-44 


40-14 
40-16 


36-384 
38-374 
40-14 
40-16 


36-384 
39-28 
40-14 
40-16 


40-168 


40=1 68 


| CROSS REFERENCE TABLE (CREF vO1-05 ) 


TSEKCP 


 TSFLAG 
T$GMAN 


TSHILI 


TSLAST 
TSLOLI 


TSLSYM 


TSLTND 
TSNEST 


TSTEMP 


TSTEST 


TSTST™™ 


34-59 
40-17 


36-38 


8-124 
34-598 


36-38 


36-38 


4-17 
32-55 


2-8 


25-19 


36-384 


21-10 
34-598 


36-384 


23-22 


37-37 37-374 
21-104 21-104 
36-38 36-384 
37-37 37-374 
37-37 37-374 
21-14 23-229 
34-71 37-75 
4-9 4-9 
21-8 21-8 
23-7 23-7 
23-527 23-527 
25-5 25-5 
27-8 27-8 
29-3 29-3 
31-4 31-4 
33-3 33-3 
37-2 37-2 
39-4 39-4 
40-194 41-1 
21-84 21-14 
27-84 27-77 
34-54 34-71 
28-44 29-34 
- -9 
23-2254 23-527 
27- 27-84 
32-5 32-5 
38-44 39-4 
3-5 3-5 
3-5 3-5 
3-54 3-54 
21-10 21-104 
24-19 24-198 
30-59 30-594 
34-71 34-714 
37-75 37-754 
39-284 39-284 
40-144 40-144 
40-19 40-194 
267-4 26-4 
30-44 31-4 
37-2 37-2 
12-47 12-54 
23-30 25-33 


H 12 


38-37 


23-193 
36-384 


38-37 


38-378 


23-193 
37-37 


38-374 


38-374 


23-529 
39-183 


4-17 


39-28 


23-1934 
37-374 


39-28 


23-74 
29-34 
38-44 


39-284 


23-1934 
37-378 


39-284 


39-183 


23-523 
29-70 
38-86 


40-13 


24-19 
38-37 


40-13 


40-13 
26-635 


39-1854 


23-5278 
30-44 
39-44 


40-154 


28-4 
32-Sa 
39-4 
20-61 
23-88 


40-134 


24-19 
38-374 


40-134 


40-134 
27-77 


40-14 


24-198 
38-374 


40-14 


40-14 
28-89 


8-9 
22-7 


40-114 


38-44 
22-78 


SEQ 150 


40-1 44 


24-194 
39-28 


40-144 


40-148 
29-70 


8-94 
22-74 
23-2298 
24-74 
26-44 


I 12 
SEQ 151 
CROSS REFERENCE TABLE (CREF v01-05 ) 


23-119 23=149 23-150 = 23*155) 23-156 = 23-183) = 23-193) = 23"511 2351 

5-4 26-20 26-24 26-63 27-29 27-33 27-77 28-27 
30-27 30-31 30-59 31-23 31-27 31-66 32-26 32-30 b Fae 33-26 33-30 33-59 34-28 34-34 
34-38 34-59 34-71 36-36 36-38 37-21 37-27 37-37 37-75 38-22 38-27 38-37 38-86 39-20 


3 
retsts 2-78 25-54 26-44 27-88 28-44 29-34 30-44 31-44 32-54 33-34 34-74 37-28 38-44 39-44 


2 23°523 = 23*529 = 24-19 24-24 25-21 
28-31 28-89 29-32 29-36 29-70 


3-5 25-54 
| T10 3-5 34-34 
T1711 3-5 37-24 
TIIPMT 6=1338 38-37 
T12 =5 38-44 
113 -5 39-44 
TILOT§ «©2523 25-278 


64 
TCR 6-370# 11-45% 23-287" 23-341" 
TCRENA 6-27184 11-45 23-358" 


TOMAN 39-21 39-244 
TDR 6-371# 23-344% 23-346 


TFCZ 37-45 37-55a 
THREE 5-104 27-66 
T]MOM 7-189# 12-89 


25-25 
TITLE2 6-894 26°24 26-27 
TITLES 6-918 27-33 27-36 





J 12 


CROSS REFERENCE TABLE (CREF VO1=05 ) 


TRDYBT 64104 11-65 23-284 23-3518 
39-4 


UAM 
UBTRAP 23-36 23-2254 23-2278 


VRTCLS 6=50# 29-51% 29-53% 29-55% 29-57 38-172" 38-174" 
39-112" 39-114% 39-116 39-152" 39-154" 39-156" 39-158 

WAIIMK 77-1544 

WAITXN 11-82 12-394 

WFC 7-1884 13-57 

WTSTPM 6-143# 11-56 


XBUF 6-3684 11-70* $3 Sous 23-346* 


XMIT 10-584 15-59 15-66 15-108 15-115 15-121 15-126 
24-12 24-17 25-30 26-31 26-38 26-51 26-60 
28-66 28-72 28-77 28-82 29-43 29-59 29-63 
33-37 33-52 34-45 34-51 34-56 35-36 35-47 
38-77 38-78 38-79 38-80 38-81 38-82 38-83 
39-84 39-90 39-119 39-125 39-140 9=— 39-146 = 39-161 


XON 66-3194 11-76 12-51 15-95 25-39 


ZERO 5-78 6-258 6-258 6-259 6-259 10-186 15-78 


TMPLT2 6=267# 14-50 

TMPLT2 6=2684 14-60 17-57 17-62 1770 
TOPSTK  6=3984 10-69*  10-70* 

27-70 35-35 36-46 

i 


38-176" 


39-168 


15-82 


38-187 


38-190 
39-180 


15-87 


38-228" 


15-133 
27-58 
31-34 
37-49 
38-196 


15=104 


38-230* 


23-79 
27-74 
31-43 
37-68 
38-202 


19-111 


38-232* 


23-141 


15-117 


38-234 


26744 


SEQ 152 


39-110° 


27-44 


#rees it 
RE Ban ou 
waeaeeee 


ereet 
No-<—- e  S 
SeReuES 
SUVS REES 


t 
Nm 
iw) 
Ww 
R 


—_— — os oes od = 
—_—— 
meee ed ed oe od ot os J 


-2744 





2-74 
o-74# 
2-78 
o-7# 
o-7# 
o-78 
2-74 
o-7# 
o-74 
2-78 
2-74 
2-74 
2-74 
2-78 
2-74 
o-74 
o-78 
2-78 
2-74 
2-78 
2-74 


2-78 
2-78 
2-78 
o-7a 
o-7a 
2-74 
o-7a 
2-78 
2-74 
2-74 
2-7 
o-74 
2-74 
o-74# 
o-7# 
2-74 
2-74 
2-74 
2-74 
2-78 
2-7# 
2-74 
2-74 
2-74 
2-74 


23-20 


24-24 


— CROSS REFERENCE TABLE (CREF VvO01-05 ) 


34-29 


26-4 
23-31 
12-47 


23-35 


37-22 


27-8 


12-54 


23-58 


38-23 39-21 


28-4 29-3 30-4 


13-47 


23-88 23-94 23-119 


31-4 


23-150 


32-5 


23-156 


33-3 


23-512 


34-3 


37-2 


SEQ 153 


38-4 


| CROSS REFERENCE TABLE (CREF vO1-05 ) 


é 
i 


-722# 


7348 
~7444# 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1-8394 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 


2-78 
o-7# 
o-74# 


2-74 
o-74# 
o-7# 
2-74 


25-47 
5-2 


20-59 


6-445 
8-12 


26-63 


21-19 


36-38 


34-594 


27-77 


23-193 


37-37 


36-38 


23-193 


28-89 


24-19 


38-37 


36-384 


23-2294 
37-754 


36-38 
40-134 
23-1934 


L 12 


29-70 


39-28 


37-37 


23-193 
37-37 


37-37 


23-5234 
38-864 


36-38 
40-14 
24-19 


30-59 


37-378 


23-1934 
37-374 


13-574 


26-634 
33-594 


37-378 


23-5294 
39-1834 


24-198 


31-66 


38-37 


24-244 
40-194 


37-37 
40-144 


32-55 


38-374 


24-198 
38-374 


22-134 
27-774 
34-714 


38-374 


25-474 
41-14 


37-37 
40-17 


33-59 


39-28 


39-28 
20-62 


37-374 
40-17 


34-71 


39-284 


23-2298 
28-894 
37-754 
39-284 


27-774 


38-37 
40-174 


37-75 


40-13 


40-13 
20-76 
23-155 
30-31 
38-27 


38-37 


SEQ 154 


38-86 


40-17 


38-378 


.--—-—_-——- 
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CROSS REFERENCE TABLE (CREF V01-05 


40-114 
23-19 


2-74 
2-7# 


4-17 
24-24 
31-66 
40-19 
11-56 


26-634 
27-77 


25-474 


N 12 


27-298 


27-294 


40-414 
37-374 


21-144 
27-774 
34-714 


21-144 
26-634 
33-59" 


13-574 


38-44 
39-204 


23-183 


22-15 
27-77 
34-71 


20-61 


27-33 
2 


23-2294 
28-894 
37-754 


28-44 
37-24 


39-254 


23-1854 


22-134 
o7-77a 
34-714 


20-614 


27-33 


39-28 


39-284 


23-5234 


29-704 
38-864 


29-34 
38-44 


23-2298 


28-894 
37-754 


20-624 


3 
40-14 
40-17 


23-529 
30-59 
39-183 


30-4 
39-4 


23-525 
29-70 
38-86 
20-76 


SEQ 156 


CROSS REFERENCE TABLE (CREF vO1=05 ) 


MSPUSH 


MS$PUT 


M$PUT1 


M$RAD I 


M$RBRO 
M$RNRO 


MSSETS 


M$STAR 
M$SVC 


M$TLAB 


MSTSTL 





20-824 
23-5118 


13-474 
20-824 


3-37 


23-574 
25-254 
32-304 


23-874 


31-274 
36-384 


11-484 
20-594 
23-198 


37-374 


26-204 


37-578 


11-564 
20-614 
23-228 


23-118 


23-1184 
28-314 
36-364 


38-374 


27-298 


38-274 


13-574 
23-584 
23-5124 
28-274 
32-554 
37-754 


20-624 
23-30" 


23-149 
29-36 
37-27 


23-1498 23-155 
29-364 30-31 


37-274 38-27 
22-74 23-7 
27-84 28-4 
34-34 37-2 
20-61 20-61 
23-36 23-36 
23-118 23-118 
25-254 26-24 
30-31 30-314 
36-36 36-36 
13-57 13-574 
20-624 20-76 


27-334 28-31 
31-27 31-274 
34-384 36-36 
39-25 39-254 
39-284 40-13 
28-274 29-32 
22-74 23-7 
27-84 28-4 
34-34 37-2 


20-76 0-764 
23-304 23-33 

23-934 23-94 

23-1564 23-183 
24-194 4-24 

26-634 27-29 

29-324 

31-274 31-66 

33-594 34-28 

36-384 37-21 

38-374 38-86 


20-614 20-624 


38-274  38-37« 


12-54 12-89 
20-764 20-78 
23-338 © 23-36 


SEQ 157 


23-1554 


29-328 


23-7# 
28-44 
37-24 


1? 
ye 
4 


-<794 


->084 
->184 


—_ 

2 

“~ 

P4 
eS ea, 

1 i 

" 

2 


TABLE (CREF VO1-05 ) 


23-58 


39-284 
40-16 
34-28 


2-21 
20-61 
37-27 
23-57 
11-56 


23-19 
25-21 


23-36 
2-7 
8-124 

40-16 


23-584 


40-13 


40-164 
37-21 


21-10" 


40-134 


38-22 


20-82 
39-25 
23-93 


13-57 


27-29 


23-1938 


39-20 


25-25 
23-118 
20-62 


28-27 


24-198 


26-24 
23-149 


29-32 


30-27 


28-31 
23-511 


31-23 


29-36 


32-26 


30-31 


33-26 


31-27 


34-34 


23-118 
23-193 


38-374 
40-174 


32-30 


SEQ 158 


33-30 


